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Editorial 


Wettbewerb-Sieger 


Die besten Programme, die aus dem erstmals veranstalteten 
Wettbewerb "Sharp User-Club des Jahres" stammen, finden sich 
zusammen mit vielen nützlichen Programmier-Ideen in diesem 
zweiten CHIP-SPECIAL für die beiden Computerreihen Sharp MZ- 
700 und MZ-800. 

Aufgerufen zu diesem Wettbewerb hatte die deutsche 
Tochtergesellschaft des japanischen Computerherstellers 
Sharp. Die "Auslese" überließen die Hamburger 
Softwarespezialisten der neutralen Redaktion von CHIP¬ 
SPECIAL. Den ersten Preis erhielt "MZ-CAD", ein komfortables 
Grafikprogramm, mit dem sich Zeichnungen auf dem Monitor 
erstellen lassen. 

Es ist vorgesehen, diesen Wettbewerb alljährlich so zeitig 
auszuschreiben, daß die Preisverleihung jeweils zur CeBit- 
Messe Hannover durchgeführt werden kann. Teilnehmen kann 
jedes User-C1ub-Mitg1 ied. Wer sich jetzt schon Gedanken 
macht, was er bis Jahresende 1986 einreichen möchte, hat die 
größten Chancen. 

Falls Sie Programme aus diesem Heft auf Datenträger 
anfordern, sollten Sie folgendes wissen: Im Gegensatz zum 
ersten Sharp-MZ-SPECIAL, dessen Programme auf den beiden 
Rechnerreihen MZ-700 und MZ-800 liefen, weil für die MZ-700- 
Serie geschrieben, haben unsere Programmierer diesmal ver¬ 
stärkt die Möglichkeiten des M£-800 ausgenutzt. Im Heft 
ist das jeweils angegeben. Wenn Sie als MZ-700-Besitzer 
also den Heftinhalt auf Datenträger bestellen, dürfen Sie 
sich nicht darüber wundern, daß Sie zwar alle Software 
bekommen, jedoch die speziell für die 800er-Serie geschrie¬ 
benen Programme nicht nutzen können. 

Schließlich unterscheidet sich das Leistungsspektrum des MZ- 
800-Computers schon in folgenden Punkten: 

- Bildschirmdarstellung mit 40 oder 80 Zeichen pro Zeile 

- Bildschirmgrafik mit max. 640 mal 200 Punkten und bis zu 
16 Farben 

- dreistimmige Tonerzeugung und 

- bis zu 128 KByte RAM. 

Zudem bietet das neue, mit einem Bildschirm-Editor ausge¬ 
stattete BASIC für den MZ-800 eine Vielzahl von Befehlen, 
die auch die Musikerzeugung und die hochauflösende Grafik 
des Gerätes komfortabel steuern. Darüber hinaus sind bereits 
Funktionen für die Steuerung der Quick-Disk, einer instal¬ 
lierbaren seriellen Schnittstelle und eines als Zubehör 
erhältlichen Plotters eingebaut. Insgesamt gibt es beim MZ- 
800 mehr als 150 verschiedene Befehle. 

Daß Sie von dieser Ausgabe viel profitieren und vielleicht 
Lust bekommen, am nächsten Wettbewerb mitzumachen wünscht 
sich Ihre Redaktion CHIP-SPECIAL 



PS.: Einsendungen für den Wettbewerb "Sharp User-Club des 
Jahres 1987" nimmt auch die Redaktion CHIP-SPECIAL entge¬ 
gen. Die Einsendebedingungen erhalten Sie auf Anfrage beim 
RedaktionsSekretariat. 
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SÄMTLICHE PROGRAMME, die in dieser Ausgabe als Listing 
mit Dokumentation veröffentlicht wurden, können Sie auf 
Datenträger beziehen. Anforderungskarten am Heftende. 
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Alle Shcarp-User-Clubs 



PC 1500 Club Deutschland Fusche1 GMBH 

KaLser Friedrich Str.54a 1000 Se-. . 
Sofware Club Carsten Frank Schulz 

Hans Böhm ZeLle 12 1000 Berlin 37 

SHARP HARD u.SOFTWARE CLUB M. Havemester 

Ohekamp 6© 2000 Hamburg 63 

SHARP—HISOFT-PASCAL—KLUB Frau Ulola Petersen 

Behrlngstr. 23 200© Hamburg 50 

SHARP-CGNPUTER-CLUB HARDWARE Herr Knauss 

Sch1eusenstleg 34 2000 Hamburg 65 

SHARP-COMPUTER-CLUB Herr Roschlaub 

Grtesstr.69 2000 Hamburg 26 
COMPUTERCLUB UASKAR Erich Dymke 

Bekkamp 19 2080 Hamburg 70 

SHARP-USER-CLUB Ingo Drössler 

öjendorfer Stetnkamp 28 2000 Hamburg 74 

SHARP PüCKETCOMP. CLUB Wolfgang Eckner 

Buenser Weg 8 2107 Rosengarten-Eckel 

Computer Club Elmshorn Herr Körner 

Postfach 261 2200 K1ein—Nordende 

SHARP-USER-CLUB Michael Hage1 

Hermannstr.8 2211 BerIngstedt 

SHARP-USER-CLUB Frank Platthoff 

Rendsburger Landstr.181 2300 Klei 1 

Computer Club Hatten 

Postfach 1027 2904 Hatten 

SHARP-COMPUTER-CLUB Hermann Eh1ers 

Gronostr. 2 3000 Hannooer 91 

SHARP-PC-USER-CLUB Thomas Petersen 

Neuer Weg 99 3061 Hespe 

SHARP-USER-CLUB Rheinland Anselm Althöfer 

Bohnhorst 219 3079 Warmsenl 

SHARP-COMPUTERCLUB-FRANKEHBERG Oliver Roth 

Jäger^tr. 3 3559 Industriehof 

SHARP-COMPUTER-CLUB GERMANV Herr Sahl 

Am Schwimmbad 11 3579 Frd.-Lenderscheid 

SHARP-USER-CLUB Uo1ker Böth1Ing 

Bielbergweg 58 4830 RatIngen 4 

SHARP-USER-CLUB Wolf Holten MBA 

POB 10 18 63 4300 Essen 1 

SHARP-USER-CLUB-HAMM Wl11l Hake 

Auf dem Rott 3 4700 Hamm 1 

Interessengem d.Sharp Freunde Herr Troblz 

Schaferstr.48 4708 Kamen 

oHARP Computer-Club Ostwestfalen H.Drexhage 

Oberntorwal1 4c 4800 Bielefeld 

SHARP-USER-CLUB Thomas Wüsteneck 

Westkorso 12 4970 Bad Oeynhausen 1 

S00. Dimension Rene Coellen 

Postfach 501208 5000 Köln 

MZ-780,'800 Anwenderclub Germar Nikol 

Sandkau1bach 1 5100 Aachen 

SHARP-USER-CLUB Fritz Horack 

Kar1str.5 5238 A1tenkIrchen 
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CTR Frank Thomas Ettriz 
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15 7580 Karlsruhe 21 


31 7544 Dobel 

Badener Str.7 7575 Ebersteinburg 


Sven Boseke 

Uhlandstr. 1 7601 Schutterwald 1 

Lahrer Computer Club Herbert Föllmer 

Burghelmerstr.8 7630 Lahr 

PC—1211 Hardware Interes.Gem. H.Grothe 

Pötschnerstr.2 8000 München 19 
SHARP PC-GRUPPE Postfach 140662 

Auenstr .7 8 000 München 5 

Interessengruppe MZ 3500 Helmuth Bräuherr 

Weckenweg 1 8070 Ingolstadt 

MZ-700 CLUB Rudolf Hahn 

Gerlach von Hohen 1-str.15 8704 Offenhelm 

Computerc1ub Aschaffenburg K.D.Huyke 

Hauptstr.185 8752 Mainaschaff 


SHARP-USER-CLUB 
SHARPSOFT LTD 


Heinz Huber 

Im Sträler 19 CH-8047 ZÜrIch/'SCHWEITZ 

86-90 Paul Street 

London EC2A 4NE ENGLAND 


SEM SHARPENTIERS 151 153 Au. Jean Jauret. 

93307 AuberuLllers Cedex Frankreich 
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Programmierhilfe-Karle 


So geben Sie BASIC-Programme ein 


In diesem Heft wurde der vollstän¬ 
dige Zeichensatz der Rechner MZ-700 
und MZ-800 1:1 ausgedruckt. Das 
heißt, daß in unseren Listings alle 
Zeichen genau wie auf Ihrem Bild¬ 
schirm dargestellt werden. Die je¬ 
weilige Tastenfolge für die ein¬ 
zelnen Zeichen finden Sie in Ihrem 
Handbuch auf den Seiten 114 bis 119 
(MZ-700) bzw. auf den Seiten 4-2 
bis 4-5 (MZ-800). 

Da bei beiden Rechnern bestimmte 
Zeichen nicht direkt über die 
Tastatur zu erreichen sind (z.B. 
die deutschen Sonderzeichen), zei¬ 
gen wir Ihnen hier einen kleinen 
Trick: 

Sie wollen z.B. das scharfe s (ß) 
eingeben. Zuerst müssen Sie nachse- 
hen, welche Codenummer das Zeichen 
hat (MZ-700: Seite 158, MZ-800: 
Seite A-25). Hier sehen Sie, daß 
die Hexadezimalzahl AE dem ß ent¬ 
spricht. Nun muß nurnoch eine Funk¬ 
tionstaste mit dem soeben gefunde¬ 
nen Wert programmiert werden: 

DEF KEY (1) = CHR$($AE) 

Wenn Sie diese Zeile eingegeben 


haben, erscheint bei jedem Druck 
auf die Taste Fl ein "ß". 

Hex-Listings 

Zuerst laden Sie das BASIC Ihres 
Computers und gehen dann mit BYE in 
den BASIC-Monitor. Nun können Sie 
mit Hilfe des M-Befehles das Hex- 
Listing eintippen (siehe auch Hand¬ 
buch Seite 149 für den MZ-700 bzw. 
Seite 8-6 für dem MZ-800) 

In der Dokumentation der einzelnen 
Maschinenprogramme sind jeweils die 
Anfangsadresse, die Endadresse und 
die Ausführungsadresse (=Autostart- 
adresse) angegeben. 

Unter Angabe dieser Adressen können 
Sie das Maschinenprogramm mit Hilfe 
des S-Befehles abspeichern (siehe 
auch Handbuch Seite 150 für den MZ- 
700 und Seite 8-5 für den MZ-800). 
ACHTUNG: Geben Sie bitte nur die 

Hexdaten ein (nicht die Zeichenfol¬ 
ge "/."). 

Mit diesen Angaben dürfte es nicht 
schwerfallen, die Programme richtig * 
einzutippen. 

Thies B. Schupp 


Buchtips 


Z80-Maschinenprogramme mit 
Sharp MZ-700 und MZ-800 

Die Sprache des Mikroprozessors Z80 (bzw. Z80A) ist überall 
dieselbe - unabhängig davon, in welchem Computer der Z80 
arbeitet. Der Verfasser wählte als Beispielmodell den MZ-700, weil 
er ein gängiger Mikrocomputer ist, sich ausgezeichnet zum Arbei¬ 
ten in der Maschinensprache eignet und hervorragend dokumen¬ 
tiert ist. Auch wer mit einem anderen Z80-Computer arbeitet, wird 
viele brauchbare Beispiele und Anregungen finden. In jedem Fall ist 
es nützlich, wenn der Leser bereits Kenntnisse im Programmieren 
hat. 

Dieses Buch vermittelt die wichtigsten Grundbegriffe und Z80- 
Befehle, unterstützt beim Zurechtfinden in den Handbüchern und 
Kennenlernen gängiger Programmstrukturen, gibt Anregungen für 
eigenes Arbeiten und zum Gebrauch von Dienstprogrammen, ver¬ 
rät viele nützliche Programmtricks. 244 Seiten, 30 Mark 



Helmut Ostermann 
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Tips und Tricks 


Sup@r-Copy 


Rechner: MZ-700/800 

Prograramname: Supercopy 

Programmlänge: 740 Bytes 

Programmiersprache: Assembler 

Zubehör: Kassettenrecorder und 

gutes (!) Bandmaterial 

Anfangsadresse: A000 

Endadresse: A2E7 

Ausführungsadresse: A000 

Wer mit dem Sharp MZ-700 arbeiten 
will, muß erst ein Systemprogramm, 
sei es BASIC, Pascal oder Fortran, 
von der Kassette laden. Bekannter¬ 
weise dauert dies auf dem MZ-700 
sehr lange (z.B. beim S-BASIC ganze 
193 Sekunden). Das nachfolgend be¬ 
schriebene kurze Programm schafft 
da Abhilfe und verkürzt diese 
Wartezeit auf etwa die Hälfte. 

Sharp*s Lade- und Abspeicherungs¬ 
verfahren 

Jedes Byte, das auf Kassette ge¬ 
schrieben werden soll, wird bit¬ 
weise auf 0 oder 1 getestet. Wird 
eine 1 erkannt, wird 460 Mikrose¬ 
kunden lang ein High-Impuls gesen¬ 
det, gefolgt von 460 Mikrosekunden 
Low-Zustand. Jede 0 wird als Folge 
von 230 Mikrosekunden High- und 230 
Mikrosekunden Low-Zustand über Bit 
1 von Port C des 8255 geschrieben. 
Jedem Byte geht dabei noch ein 
Startbit 1 voraus. 

Beim Wiedereinlesen wird solange 
abgefragt, bis ein Übergang von 0 
auf 1 gefunden wird. Dies ist eine 
laufende Synchronisation. Ist die¬ 
ser Übergang gefunden, so wird 320 
Mikrosekunden später der Zustand 
wieder abgefragt. Ist er immer noch 
High, so handelt es sich um eine 1, 
ist er Low, so ist eine 0 gefunden. 
Diese Bits werden wieder in ein 
Register geschoben und nach Errei¬ 
chen eines Bytes im Speicher abge¬ 
legt. 

Die Zeitschleifen, die zum Schrei¬ 
ben und Einlesen von 0 oder 1 im 
Monitor-ROM eingebaut sind, können 
nun manipuliert werden. Beim langen 
Impuls für eine 1 wird das Register 
A 89 mal dekrementiert, bei einem 


kurzen Impuls für eine 0 wird zwei¬ 
mal von 21 heruntergezählt. Zum 
Wiedereinlesen wird ein Zähler be¬ 
nutzt, der etwa 75$ der 1-Schleife 
und etwa 150$ der O-Schleife lang 
ist. Hier wird die Zahl 63 benutzt. 
Parallel zum Monitor-ROM liegt der 
RAM-Bereich. Mit ein paar Maschi¬ 
nenbefehlen kann der ROM-Inhalt 
dorthin kopiert werden. Von diesem 
RAM-Monitor läßt sich aber kein 
Programm mehr lesen. Nachrechnungen 
ergaben, daß die genannten Zeit¬ 
schleifen um ca. 20$ verlängert 
werden müssen. Der Grund dafür mag 
darin liegen, daß das ROM langsamer 
ist und eventuell WAIT-Zyklen ein¬ 
gefügt werden. Die zu dekrementie- 
renden Werte sind jetzt in der 
Reihenfolge 1,0,Lesen: 105,25,75. 

Was macht das Programm 2 

Das kurze Programm, dessen Hexdump 
hier abgedruckt ist, macht nun 
folgende Schritte. 

1. Laden und Starten des zu kopie¬ 
renden Programmes. Dabei wird über¬ 
prüft, ob es bereits im Schnellver¬ 
fahren abgespeichert wurde. 

2. Abspeichern im Normalverfahren 
mit S wie SAVE oder C wie COPY 
(wenn die Parameter noch vorhanden 
sind, andernfalls wird nach dem 
Anfang, Ende etc. gefragt). 

3. Abspeichern im Schnellverfahren 
mit QS = QuickSave oder QC = Quick- 
Copy. 

Hierbei wird zuerst das Programmen¬ 
de errechnet, wohin ein kleines 
Vorprogramm gelegt werten soll. Da 
der Monitor, der nach dem Einschal¬ 
ten des Computers zur Verfügung 
steht, nur normal abgespeicherte 
Programme laden kann, wird dieses 
Vorprogramm, tat -täten das schnel¬ 
le Laden ermöglichen soll, demzu¬ 
folge auch im lormalverfahren abge¬ 
speichert. Ist dies nach dem be- 

tehen, werden 
der . t - J Kopiert und die 
leite: 1 e.:e' - e ' t e auf die Hälfte 
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Tips und Tricks 


herabgesetzt. Anschließend wird der 
Header wieder hergestellt und das 
eigentliche Hauptprogramm im 
Schnellverfahren abgespeichert. 
Danach wird wieder der ROM-Monitor 
aktiv und es kann erneut geladen 
werden. 

Das Laden des Programmes vom Moni¬ 
tor aus geschieht in umgekehrter 
Reihenfolge: Laden und Starten des 
Vorprogrammes, dadurch Swappen und 
Korrigieren der Zeitwerte und Nach¬ 
laden des Hauptprogrammes. 

Anmerkungen 

Bei guten Bändern können die Zeit¬ 
werte weiter verringert werden. Das 
Verhältnis der in den Adressen 


A2BB, A2C0 und A2C5 stehenden Wer¬ 
te, sollte immer ca. wie drei Teile 
zu einem Teil zu vier Teilen sein. 
Allerdings, wird der Zeitvorteil 
bei kleineren Systemprogrammen ge¬ 
ringer, da daß Vorprogramm allein 
ca. 25 Sekunden zum Laden benötigt. 
Werden von einem so geladenen Pro¬ 
gramm Programm Files erstellt, so 
werden diese ebenfalls schnell ab¬ 
gespeichert. Alte Files können nur 
gelesen werden, wenn nach dem Start 
ein Reset mit anschließendem Warm¬ 
start vom Monitor aus gemacht wird. 
Dies gilt nicht für das S-BASIC, da 
dieses Programm einen eigenen Moni¬ 
tor enthält. 

Bruno Volkmer 
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00 

CD 

/ . 

A240=19 

23 

22 

08 

11 

11 

67 

11 

/. 

A100=1E 

00 

11 

B7 

A0 

DF 

C3 

09 

/ . 

A248=21 

02 

11 

01 

06 

00 

ED 

B0 

/. 

A10S=A0 

CD 

06 

00 

11 

9C 

A0 

DF 

/ . 

A250=2A 

08 

11 

22 

04 

11 

22 

06 

/, 

Al10=CD 

4B 

Al 

22 

04 

11 

E5 

11 

/. . ___ 

A258=l1 

21 

50 

00 

22 

02 

11 

ED 

/. 

A118=A5 

A0 

DF 

CD 

4B 

Al 

Dl 

B7 

/.. 

A260=5B 

08 

11 

21 

9B 

A2 

01 

26 

/, 

A120=ED 

52 

23 

22 

02 

11 

11 

AE 

/. 

A268=00 

ED 

B0 

21 

C3 

A2 

01 

23 

/. 

A12S=A0 

DF 

CD 

4B 

Al 

22 

06 

11 

/ . 

A270=00 

ED 

B0 

3E 

BF 

32 

F0 

10 

/. 

Al30=11 

C4 

A0 

DF 

11 

A3 

11 

CD 

/ . 

A278=CD 

21 

00 

DA 

FC 

A0 

CD 

24 

/. 

Al38=03 

00 

21 

AA 

11 

11 

Fl 

10 

/ . 

A280=00 

DA 

FC 

A0 

CD 

9B 

A2 

11 

/. 

Al40=01 

10 

00 

ED 

B0 

3E 

0D 

32 

/ . 

A288=02 

11 

21 

67 

11 

01 

06 

00 

/. 

Al48=01 

11 

C9 

11 

A3 

11 

CD 

03 

/. 

A290=ED 

B0 

CD 

24 

00 

DA 

FC 

A0 

/, 
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Tips und Tricks 


A29S=C3 AA Al D3 El 11 00 D0 / 
A2A0-21 00 00 01 01 10 C5 ED / 
A2A8=B0 D3 E0 CI 03 EB ED BB / 
A2B0=D3 E3 3E 24 32 4B 0A 3E / 
A2B8=0D 32 5A 07 3E 30 32 AA / 
A2C0=09 00 C9 21 67 11 11 02 / 
A2C8—11 01 06 00 ED B0 00 CD / 
A2D0=2A 00 30 0B CD 06 00 CD / 
A2D8=3E 00 3E 01 C3 07 01 2A / 
A2E0=06 11 E9 FF FF A3 CD 4E / 


BEIM ABTIPPEN ARBEIT SPAREN 5 
können Sie sich, wenn Sie mit £ 
der Anforderungskarte am Heft- * 
ende die Programme auf Daten- * 
träger anfordern. * 
Anwenden und auf Ihre Belange ! 
abändern lassen sich diese { 
Programme allerdings nur mit * 
dieser CHIP-SPECIAL-Ausgabe. J 


Hcopy 800 - der schnelle Druck 


Rechner: MZ-800 

Programmname: Hcopy 800 

Programmlänge: 1500 Bytes 

Programmiersprache: Assembler 

Zubehör: Star- oder Epsondrucker 

Kassettenrecorder 

Anfangsadresse: C000 

Endadresse: C827 

Ausführungsadresse: C000 


Mit Hilfe dieses kleinen Utilities, 
können Sie erstens in verschie¬ 
denen Modi eine Bildschirmhardcopy 
auf ihrem Drucker ausgeben und 
zweitens die Geschwindigkeit der 
Kassettenoperatoren LOAD, SAVE und 
VERIFY verdoppeln. 

Einrichten des neuen BASIC 1 s 
Die Daten der BASIC-Erweiterung 
müssen in das normale MZ-800-BASIC 
kopiert werden! Dafür müssen Sie 
die Systemschalter auf der Rücksei¬ 
te des Computers in den MZ-700- 
Modus schalten. Nun laden Sie das 
Programm HCOPY 800.V1A1 wie Sie 
sonst das normale BASIC auch laden. 
Nachdem das Programm geladen wurde, 
werden Sie aufgefordert, die Kas¬ 
sette mit dem MZ-1Z016 BASIC (das 
MZ-800-Kassetten-BASIC) in den Re¬ 
corder zu legen und <CR> zu drük- 
ken. Ist das Laden abgeschlossen, 
werden Sie danach gefragt, ob Sie 
das BASIC an einen Epson- oder 
einen Stardrucker angepaßt haben 
möchten. Haben Sie sich entschieden 
und die entsprechende Taste ge¬ 
drückt, müssen Sie eine neue Kas¬ 
sette in den Recorder einlegen, 


<CR> und dann RECORD & PLAY drük- 
ken. Nach dem Abspeichern meldet 
sich der Computer mit "0K! H . Nach¬ 
dem Sie die Systemschalter wieder 
in den MZ-800-Modus gestellt haben, 
können Sie das neue BASIC wie das 
normale laden. 

FSAVE, FL0AD und FCHECK 
Die Benutzung dieser Befehle er¬ 
folgt analog zu den Befehlen SAVE, 
LOAD und VERIFY. Innerhalb eines 
Programms können auch andere Kas¬ 
settenoperationen im schnellen Mo¬ 
dus benutzt werden, wenn vorher ein 
USR($55D3) ausgeführt wird. Mit 
USR($55E5) wird der schnelle Modus 
wieder abgeschaltet. 

Z.B.: USR($55D3):MERGE:USR($55E5) 
Aber Achtung! Der schnelle und der 
langsame Kassettenmodus sind zuein¬ 
ander nich kompatibel, d.h. daß mit 
FSAVE abgespeicherte Programme 
nicht mit LOAD sondern nur mit 
FL0AD geladen werden können etc. 

HCOPY, 

gibt den Bildschirminhalt auf einen 
Drucker aus, wobei das Bildschirm¬ 
format selbsständig erkannt wird. 
Hinter HCOPY muß einer der folgen¬ 
den Werte stehen, der den jeweili¬ 
gen Druckmodus angibt. 

0 Normale Dichte 

1 Doppelte Dichte 

2 Doppelte Dichte und Geschwindig¬ 
keit 

3 Vierfache Dichte 

4 CRT - Grafik 

5 Plotter Grafik 

6 CRT - Grafik II 


io 
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Tips und Tricks 


Die Werte 7 bis 13 verhalten sich 
wie die Werte 0 bis 6, die Grafik 
wird jedoch invertiert ausgegeben. 
Beachten Sie bitte, daß der Bild- 
schirminhalt nicht vollständig aus¬ 
gedruckt wird, wenn bei einem Bild¬ 
schirmformat von 640 * 200 Punkten 
der .Druckmodus 0 oder 7 gewählt 
wird. Abgebrochen werden kann die 
Ausführung des HCOPY-Befehls mit 


den Tasten <SHIFT> + <BREAK>. Da¬ 
nach sollte beim Drucker allerdings 
ein Reset ausgeführt werden. 
Anmerkung: Ihr Drucker muß so ein¬ 

gestellt sein, daß bei CR ein Zei¬ 
lenvorschub erfolgt. Außerdem 
können bei einigen Druckern nicht 
alle Modi benutzt werden, so zum 
Beispiel beim Epson RX 80 die Modi 
5 und 12. Andreas Jerrentrup 


:C000=3E 

16 

CD 

12 

00 

11 

00 

C5 

/... : 

iC57B=50 

53 

4F 

4E 

20 

3F 

0D 

3E 

/. 

s C008~CD 

15 

00 

CD 

06 

00 

11 

1F 

/. : 

:C580=3E 

20 

45 

50 

53 

4F 

4E 

0D 

/. 

:C010=C5 

CD 

15 

00 

CD 

06 

00 

11 

/. : 

!C588=3E 

3E 

20 

53 

54 

41 

52 

0D 

/. 

:C018=45 

C5 

CD 

15 

00 

CD 

1B 

00 

/.. : 

iC590=49 

B0 

A4 

92 

9D 

96 

20 

Al 

/. 

■C020=FE 

66 

02 

ID 

C0 

CD 

07 

E8 

/. : 

:C598=20 

4E 

45 

57 

20 

43 

Al 

A4 

/. 

:C02B=21 

00 

C4 

u 

17 

6D 

01 

10 

/. s 

1 C5A0=A4 

92 

96 

96 

92 

20 

Al 

B0 

/. 

:C030=00 

ED 

B0 

11 

CI 

67 

01 

35 

/. : 

!C5A8=9C 

20 

9E 

9D 

92 

A4 

A4 

20 

/. 

:C038-00 

ED 

B0 

11 

7A 

6A 

01 

03 

/. : 

!C5B0=3C 

43 

52 

3E 

2E 

0D 

FF 

FF 

/. 

:C040=00 

ED 

B0 

11 

ID 

6F 

01 

06 

/. 










:C048=00 

ED 

B0 

21 

F0 

C6 

11 

C9 

/... 










:C050=3C 

01 

37 

01 

ED 

B0 

3E 

D3 

/. 

C6F0=2A 

FF 

2B 

E5 

21 

Dl 

58 

C3 

/. 

-C058—32 

53 

6F 

3E 

2A 

32 

54 

6F 

/. 

C6F8=9F 

2B 

CI 

CI 

ED 

43 

FF 

2B 

/. 

■C060-CD 

06 

00 

CD 

06 

00 

11 

6B 

/.. . 

C700=3E 

C4 

32 

67 

2B 

AF 

32 

F9 

/. 

:C068=C5 

CD 

15 

00 

CD 

06 

00 

CD 

/. 

C708=2B 

32 

FB 

2B 

CD 

DA 

84 

22 

/. 

:C070-06 

00 

CD 

1B 

00 

FE 

53 

CA 

/. . .. 

C710=FD 

2B 

AF 

BA 

C2 

6A 

63 

3E 

/. 

s C07B=8A 

C0 

FE 

45 

C2 

72 

C0 

3E 

/. 

C718=0D 

BB 

DA 

6A 

63 

7B 

FE 

06 

/. 

:C080=2A 

32 

32 

3D 

11 

7F 

C5 

C3 

/. 

C720=D4 

E3 

2B 

32 

37 

2B 

3E 

1B 

/. 

:C088=8D 

C0 

11 

88 

C5 

CD 

15 

00 

/...._ 

C728-CD 

BB 

2B 

3E 

41 

CD 

BB 

2B 

/. 

s C090=CD 

06 

00 

CD 

06 

00 

11 

90 

/. 

C730=3E 

08 

CD 

BB 

2B 

3A 

98 

10 

/. 

sC098=C5 

CD 

15 

00 

CD 

1B 

00 

FE 

/.. 

C738=FE 

03 

D2 

ED 

2B 

21 

40 

01 

/. 

:C0A0=66 

C2 

9C 

C0 

CD 

0A 

E8 

C3 

/. 

C740=E5 

22 

F5 

2B 

3E 

19 

32 

F7 

/. 

s C0A8=A7 

C0 

00 

00 

FF 

FF 

00 

00 

/. . .. 

C748=2B 

3A 

F7 

2B 

B7 

28 

5C 

3D 

/. 










C750=32 

F7 

2B 

3E 

1B 

CD 

BB 

2B 

/. 

s C400=46 

53 

41 

56 

C5 

46 

4C 

4F 

/. . .. 

C758=3E 

67 

CD 

BB 

2B 

3E 

00 

CD 

/. 

:C408=41 

C4 

46 

43 

48 

45 

43 

CB 

/. 

C760=BB 

2B 

3A 

F5 

2B 

CD 

BB 

2B 

/. 

:C410=CD 

D3 

55 

C3 

3F 

73 

CD 

D3 

/. 

C768=3A 

F6 

2B 

CD 

BB 

2B 

11 

00 

/. 

■ w r Jk w wkr 

sC418=55 

C3 

FD 

6F 

CD 

D3 

55 

C3 

/. 

C770=00 

El 

E5 

ED 

52 

28 

26 

26 

/. 

-C420=28 

73 

3E 

23 

32 

91 

3B 

3E 

/. 

C778=00 

3A 

F9 

2B 

6F 

AF 

06 

08 

/. 

s C428=0B 

32 

97 

3B 

3E 

31 

32 

9B 

/. 

C780=4F 

D5 

C5 

E5 

3E 

41 

DF 

4E 

/. 

:C430=3B 

C9 

3E 

4C 

32 

91 

3B 

3E 

/. 

C788=E1 

CI 

Dl 

FE 

00 

79 

C4 

A9 

/. 

:C438=1S 

32 

97 

3B 

3E 

69 

32 

9B 

/. . .. 

C790=2B 

23 

10 

EC 

22 

FB 

2B 

13 

/. 

-C440=3B 

11 

F0 

63 

C9 

CD 

E3 

55 

/.. 

C798=CD 

BB 

2B 

18 

D4 

3A 

FB 

2B 

/. 

-C448=C1 

55 

C7 

55 

CD 

55 

00 

00 

/.... 

C7A0=32 

F9 

2B 

3E 

0D 

CD 

BB 

2B 

/. 










C7A8=C3 

22 

2B 

El 

3E 

C4 

32 

67 

/. 



20 

20 

20 

20 

20 

20 

/. 

C7B0=2B 

AF 

32 

F9 

2B 

32 

FB 

2B 

/ 


JUMJ 

20 

20 

48 

43 

4F 

50 

59 

/. 

C7B8=3E 

1B 

CD 

BB 

2B 

3E 

32 

CD 

/, 

■ uüua 

:C510=20 

38 

30 

30 

20 

20 

20 

56 

/. 

C7C0=BB 

2B 

00 

C3 

C9 

2A 

E5 

3A 

/. 

■C518=2E 

31 

41 

31 

11 

00 

0D 

20 

/........ 

C7C8=FD 

2B 

6F 

3A 

FE 

2B 

67 

C9 

/ 

1 W W * O 

:C520=20 

V dk 

20 

20 

20 

28 

43 

29 

20 

/. 

C7D0=05 

F5 

78 

87 

87 

87 

4F 

3E 

/■ 

:C528=31 

39 

38 

35 

20 

9A 

BD 

20 

/. 

C7D8=C7 

81 

32 

B8 

2B 

Fl 

CB 

C7 

/. 

:C530=41 

B0 

9C 

9D 

92 

Al 

A4 

20 

/. 

C7E0=04 

C9 

F5 

D9 

Fl 

0E 

00 

47 

/. 

:C538=4A 

92 

9D 

9D 

92 

B0 

96 

9D 

/. 

C7E8=CD 

D5 

2B 

78 

D3 

FF 

3E 

80 

/. 

:C540=A5 

9E 

11 

11 

0D 

49 

B0 

A4 

/. 

C7F0=D3 

FE 

0E 

01 

CD 

D5 

2B 

AF 

/. 

:C54B=92 

9D 

96 

20 

42 

41 

53 

49 

/. :C7F8=D3 

FE 

D9 

C9 

DB 

FE 

E6 

0D 

/. 

:C550=43 

2D 

43 

Al 

A4 

A4 

92 

96 

/. : 

:C800=B9 

C8 

CD 

22 

0D 

20 

F5 

C3 

/. 

:C55B=96 

92 

20 

Al 

B0 

9C 

20 

9E 

/. i 

:C808=63 

64 

D6 

07 

4F 

3E 

CC 

32 

/. 

iC560=9D 

92 

A4 

A4 

20 

3C 

43 

52 

/........ ! 

:CB10=67 

2B 

79 

C9 

21 

80 

02 

C3 

/. 

:C568=3E 

2E 

0D 

3C 

53 

3E 

54 

41 

/. . --- ! 

:C818=19 

2B 

41 

2E 

4A 

2E 

31 

35 

/. 

.C570=52 

20 

B7 

9D 

20 

3C 

45 

3E 

/. i 

:C820=2F 

31 

30 

2F 

38 

35 

00 

00 

/. 
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Lernen - Wissen - Können 


lernen im Nu mit SÜPERLEARN 


Programmname: 
Programmlänge: 
Programmiersprache: 
Rechner: 


SÜPERLEARN 
6526 Bytes 
BASIC 
MZ-700/800 


Dieses universelle Programm können 
Sie zum Lernen von Vokabeln oder 
sonstigen Stoffgebieten, die nach 
dem Frage- und Antwortprinzip auf¬ 
gebaut sind, verwenden. Es ist nach 
modernsten Erkenntnissen der päda¬ 
gogischen Psychologie erstellt wor¬ 
den und gewährleistet daher einen 
sicheren Lernerfolg mit geringem 
Lernaufwand . 

Der größte Feind des erfolgreichen 
Lernens ist das Vergessen. Hier 
wurde durch Untersuchungen erkannt, 
daß häufige Wiederholungen, die 
aber nur wenig Zeit in Anspruch 
nehmen müssen, die Vergessensrate 
auf nahezu Null senken können. So 
hat man bei einmaligem Lernen nach 
fünf Tagen nur noch 20? des Lern¬ 
stoffes behalten. Wiederholt man 
den Lernstoff aber jeden Tag, so 
weiß man nach fünf Tegen noch 98- 
99? des Stoffes. Nun muß man ja 
nicht jeden Tag den ganzen Lern¬ 
stoff wiederholen. Da man ja mehr 
behält, genügt es, nur die verges¬ 
senen Lerninhalte zu wiederholen, 
was nur wenig Zeit beansprucht. 

Diese Erkenntnisse haben zu dem 
Programm SÜPERLEARN geführt. 

Bedienung des Programmes 


Die Bedienung des Programmes wird 
nun am Beispiel des Vokabellernens 
erläutern. 

Sofort nach dem Programmstart wer¬ 
den Sie gefragt, ob die Tastatur 
auf Kleinschrift umgestellt werden 
soll. Falls Sie das Programm zum 
ersten Mal nutzen sollten, müssen 
Sie seinen Einsatzbereich festle¬ 
gen. Zum Beispiel Englisch/Deutsch. 
Der Schrägstrich darf auf keinen 
Fall fehlen. 


Eingabe 


sehen Wort müssen Sie die CR-Taste 
drücken, damit Sie die deutsche 
Bedeutung eingeben können. Danach 
drücken Sie erneut die CR-Taste und 
die Eingaben für die erste Vokabel 
sind komplett. Falls Sie keine 
weiteren Vokabeln eingeben wollen, 
können Sie mit der Funktionstaste 
Fl den Eingabenteil verlassen. 

Jetzt müssen Sie wählen, ob Sie die 
Vokabeln abspeichern oder lernen 
wollen. 

Lernen 

Wählen Sie zuerst die Abfragerich¬ 
tung (z.B. Deutsch/Englisch). Der 
Computer wird nun die Vokabeln 
abfragen, wobei Sie die Abfrage 
vorzeitig durch die Funktionstaste 
F5 beenden können (außer bei der 
ersten Vokabel). 

Sollten Sie feststellen, daß Sie 
sich bei der Eingabe vertippt ha¬ 
ben, können Sie mit der Funktions¬ 
taste F4 korrigieren. 

Haben Sie richtig geantwortet, sor¬ 
tiert das Programm die Vokabel eine 
Stufe höher ein. Es gibt fünf sol¬ 
cher Stufen, wobei die Vokabeln der 
fünften Stufe als gelernt angesehen 
werden können und daher nur noch 
sehr selten abgefragt werden. 

Der Computer merkt sich nämlich, 
wie oft Sie gelernt haben und fragt 
die Vokabeln, die in einer höheren 
Stufe sind selterner ab, als die 
einer niedrigeren Stufe. 

Haben Sie eine falsche Antwort 
gegeben, wird Ihnen die richtige 
Lösung gezeigt und die Vokabel 
wandert eine Stufe tiefer. 

Nach Lernende werden Ihre Leistun¬ 
gen mit Noten von 1 bis 6 bewertet. 
Nun müssen Sie die Datei abspei— 
ehern. . Wenn Sie wieder lernen wol¬ 
len, müssen Sie die zuletzt abge¬ 
speicherte Daie: • . laden. Es 
ist daher empfehlenswert einen ex¬ 
tra Datenträger für die Dateien zu 
verwenden. 


Geben Sie nun die Vokabeln ein, die N ' Jn v:e - :5 -- lernen ! 

Sie lernen wollen. Nach dem engli- Dietmar Schlüter 
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Lernen - Wissen - Können 


10 REM SUPERLEARN 
20 REM FUER CHIP SPECIAL 


30 REM 
40 REM 

50 REM SVSTEMEINSTELLUNGEN 
60 DIM V * < 2000) : DIM FI<6) : DIM B 

* < 2 ) 

70 PR INTCHR*(6) ; : REM GROSSBUCHST 

ABEN 

80 FOR 1=1 TO 6 
80 FI < I) = l 
100 NEXT I 

110 DEFKEY(1)=CHR*<187)+CHR*(1S6)+C 
HR*<173)+CHR* <174)+CHR*<135) +CH 
R*<168)+CHR*<178) -REM äöüßAOU 


120 DEF KEY(3) = "<S“+CHR*<13) 
130 DEFKEY<4)= "♦"+ CHR*<13) 

140 REM MENUE 
150 CLS 

160 PRINT :PRINT:PRINT" 

- v 

170 PRINT " I 

EARN I" 

180 PRINT " V_ 


SUPERL 


_ J" 

190 PRINT :PRINT:PRINT" SOLL DIE T 
ASTATUR AUF K le inschr i-ft" : PR INT 
" UMGESTELLT HERDEN? J/N" 

200 GETA* • IFA*=""GOTO200 

210 I FA * = "J" THEN PR INTCHR * < 5 ) ; 

220 PRINT:PR INT:PR INT:PR INT:PR INT"H 
OLLEN SIE GANZ NEU ANFANGEN?" 
230 PRINT:PRINT"DANN DRUECKEN SIE D 


IE 1!" 

240 PRINT:PRINT:PRINT-PRINT"SONST D 
RUECKEN SIE IRGENDEINE TASTE" 
250 GET A* : IFA*="" GOTO 250 
260 IF < A * = "1" )+ < A * = " ! ") GOTO450 
270 REM START ZUM WEITERLERNEN 
280 CLS 

290 PRINT:PRINT:PRINT:PRINT"LEGEN S 
IE DIE DATENCASSETTE EIN!" 

300 PRINT :PRINT"UND DRUECKEN SIE EI 


NE TASTE" 

310 GET A* : IFA*="" GOTO 310 

320 GOSUB 920 : REM LADEN 

330 REM AUSWAHLMENUE 

340 CLS: PRINT :PRINT:PRINT"EINGABE 

= l" 

350 PRINT :PRINT -PRINT"LERNEN = 2" 
r60 PR INT : PR INT : PR INT"ABSPEICHERN = 


3" 

370 REM DIE NAECHSTEN DREI ZEILEN B 
ERICHTIGEN, OB DIE TASTEN MIT 0 
DER OHNE SHIFT GEDRUECKT WURDEN 
388 GET A* 

390 IFA*=" ! "THENA* = "1" 

-88 IF A*=CHR*<34)THENA*="2" 


410 IF A*="#"THENA*="3" 

420 A = VAL(A*) : IF(Ad)+ <A>3> GOTO 38 
0 

430 ON A GOSUB 548,1200,1840 
448 GOTO 340 

450 REM EINGABE BEI NEUBEGINN 
460 CLS: PRINT" GEBEN SIE BITTE D 
EN EINSATZ DES" 

470 PRINT" PROGRAMMS SUPERLE 

ARN AN ! " 

480 PRINT:PR INT" ZUM BEISPIEL: 

DEUTSCH/ENGLISCH" 

490 Z=0: INPUT SP* 

500 FOR 1=1 TO LEN(SP*) 

510 B * = M ID *(SP *,1,1) : IF <B*="/")+ 

<B* = "«-" ) THEN Z=1 : MK= I 

520 NEXT I 

530 IF Z=8 THEN PRINT:PRINT" FALSCH 
E EINGABE ! ! " : PR INT:PRINT"ES FE 
HLT DER SCHRAEGSTRICH / !!!":GO 

TO 490 

540 REM EINGABE 

550 CLS: PRINT .PRINT:PRINT" 

EINGABE" : PR INT:PR INT 
560 PRINT :PRINT:PRINT"ENDE DER EING 
ABE DURCH TASTE F3 !" 

570 PRINT:PRINT"BUCHSTABEN äöüßAöü 
AUF TASTE Fl" 

580 PRINT-PRINT:PRINT" " ; LEF T *( 

SP* , MK-1) ;" ;RIGHT*(SP*,L 
EN(SP *)-MK) 

590 PR INT : PR INT:EF=1 
600 F I (0) =F I (0) +1 
610 V*(F I (0))="800" 

620 INPUT B* 

630 IF B*="@" GOTO 700 

640 IF EF=1 THEN EF=-EF : B*=B*+"I" 

:V*(F I (0)>=V*<FI (8))+B* : PR IN 

TTAB(LEN(B*)+2) ; CHR* (18) ; :GO TO 
620 

650 V*(FI (8))=V*(FI(0))+B* 

660 IF KO=1 THEN RETURN 
670 REM SIZE IST EINE VARIABLE, DIE 
DEN RESTLICHEN VERFUEGBAREN SP 
EICHERPLATZ ANGIBT 
680 IFS IZE<1000 GOSUB 1840 
690 GOTO 550 

700 IFLEN(V*(FI (0)> >=3 THEN FI(0)=F 
I (0)-1 
710 GOTO340 

728 REM SORTIEREN VORWAERTS 
730 IF S T = 1 THEN RETURN 
740 A = F I <ST) 

750 FOR I=ZU TO A STEP -1 
760 V* < I) =V* < I-D 
770 NEXT I 
780 V*(A)=V* 

790 F I <ST)=FI(ST)+1 
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ten Funktionen. Die Festlegung ist 
dabei nicht zwingend. So können Sie 
bei rationalen Funktionen sowohl 
ganz rationale, als auch gebrochen¬ 
rationale und transzendente Funk¬ 
tionen eingeben. 

Geben Sie eine gebrochen-rationale 
Funktion ein, so wird keine Defini¬ 
tionslücke ermittelt und das Inter¬ 
vall auf der y-Achse wird auch 
nicht automatisch berechnet. Das 
kann von Vorteil sein, wenn Sie den 
Ausdruck der Funktion in vertikaler 
Richtung auch selbst bestimmen wol¬ 
len, um z.B. auch die Graphen der 
Ableitungsfunktionen vollständig 
ausdrucken zu können. Die Nenner¬ 
funktion einer ganz-rationalen 
Funktion setzen Sie dann einfach 
auf 1. 

Geben Sie eine transzendente Funk¬ 
tion ein, so werden Definitions- 
lüeken ermittelt. Dies ist bei 
trigometrischen Funktionen unpro¬ 
blematisch, bei Wurzel- oder Sig¬ 
numfunktionen u.ä. sollten Sie da¬ 
rauf achten, daß die Funktion im 
gewählten Intervall auch definiert 
ist. 

Wenn Sie die Wahl getroffen haben, 
wird mit Hilfe eines Menüs der 
weitere Arbeitsgang festgelegt. 
Sollten Sie den Kurvenverlauf noch 
nicht so genau kennen, so ist zu 
empfehlen, sich den Graphen zuerst 
auf dem Bildschirm anzusehen. Durch 
Drücken einer Taste kommen Sie dann 
zu einem weiteren Menü, bei dem Sie 
den Intervall ändern können. So 
finden Sie den optimalen Intervall 
heraus und können den Graphen so¬ 
fort plotten, oder erst eine Kur¬ 
vendiskussion mit anschließendem 
Plotten durchführen. 

Das Programm fragt jetzt nach der 
Funktionsgleichung. Bei einer ge¬ 
brochen-rationalen Funktion werden 
Zähler- und Nennerfunktion getrennt 
eingegeben, damit das Programm die 
Definitionslücken bestimmen kann. 
Die Funktionsgleichung wird in der 
Schreibweise eingegeben, die Sie 
von Basic her kennen. Dabei darf 
nur der Term rechts vom Gleich¬ 
heitszeichen eingegeben werden. Es 
sind aber alle Ausdrücke des Sharp- 
BASIC erlaubt. 


Parabel-Beispiel: X*X-2 

(Der MZ-700 rechnet erheblich 
schneller, wenn man auf die Po¬ 
tenzschreibweise verzichtet) 

Achten Sie darauf, daß als Variable 
nur X verwendet werden darf! Nach 
der Eingabe der Funktionsgleichung 
wird der Intervall auf der x-Achse, 
bei gebrochen-rationalen und trans¬ 
zendenten Funktionen zusätzlich der 
darzustellende Bereich auf der y- 
Achse abgefragt. 

Nach Erledigung der jeweiligen Auf¬ 
gabenstellung kehrt das Programm 
wieder zu einem Menü zurück, mit 
dem Sie die nächste Aufgabe festle¬ 
gen können. 

Dietmar Schlüter 


9 Cx]=0.25*X*X*X-X*X+0.25 



Schnittpunkt mit der- y-Achse : C0,.25] 
Nul Iste I le 1 [-.47,0] 

Nu I Iste Me 2 [ .54,0] 

Nu I I ste I Ie 3 [ 3.34,0] 

Minimum [ 2.67,-2.12] 

Wendepunkt 1 [ 1.33,-.93] 

Steigung den Wendetangente: -1.33 
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18 REM 
20 REM 

38 REM ***** ANALYSIS 

***** ***** FUER CHIP SPEC¬ 
IAL ***** 

40 REM ***** VON DIETMAR SCHLUETER 

58 REM 
S8 REM 
: 70 CLS 

58 ON ERROR GOTO I960 
98 REM 
188 REM 

110 REM EROEFFNUNG 
128 REM 
138 REM 
140 X=53506+V 

150 FOR I = 197 +V TO 208 STEP 2 
160 POKEX,I : POKEX+2048,225 
170 X^X +40 : NEXT I 

180 V=V+1: IF V-1 GOTO 148 
190 CURSOR 16,28 : PR INT"DisoH" 

280 M*="A3+D+E+F6A3+F5A3#A7A3#A+G+F 
+E6G3+E5+D3+C6" 

210 TEMPO 5 :MUSIC M* 

220 GOTO 250 
238 REM 
248 REM 

250 REM MENUE 1 
268 REM 
270 REM 

288 GOSUB 7390 

298 CURSOR 10,2 : POKE$5D,PEEK<*5D) 

+128 : PRINTC8,63"SIE HABEN DIE 

WAHL " 

308 CURSOR 2,7 : PR INTC8,63"Ration» 

le" : CURSOR 2,9 : PR INTC8,63"F 
unktion" 

310 CURSOR 15,6 : PRINTt0,63 "Getaro 

chen" : CURSOR 15,8 : PRINTC0,6 

3 "rationale" : CURSOR 15,10 : 

PR INTE0,63"Funktion" 

320 CURS0R29,6 : PR INTC8,63"Transze 

n- " 

338 CURS0R29,8 : PR INTE0,63"dente 

l< 

348 CURSOR 29,10 : PR INTC0,63"Funkt 

ion" 

358 GOSUB 7140 

360 IF E<12 THEN NE=2 :REM RATIONAL 
E FUNKTION 

370 IF ( E > 12 )* < E < 2 6) THEN NE=1 :REM 
GEBROCHEN RATIONALE FUNKTION 
380 IF E>26 THEN NE=3 :REM TRIGONOM 
ETRISCHE FUNKTION 
390 REM 
400 REM 

-18 REM MENUE 2 


428 REM 
438 REM 

440 CURSOR 2,7 :PRINTC8,63"Funktion 
" : CURS0R2,9:PR INTC8,63"P1otten 

ii 

458 CURSOR 15,6:PR INTC8,63"Funktion 
" :CURS0R15,8:PRINTC0,63" auf 

II 

460 CURSOR 15,10: PR INTE0,63"Bildschi 
rrn" 

478 CURS0R29,6 PR INTC8,63 "Kurvend is 
-" :CURS0R29,8 : PR INTC0,63"kussio 
n " :CURS0R29,10:PRINTE0,63"+ p 
1 otten" 

488 GOSUB 7140 : CLS 

490 IF E<12 THEN QW=1 :REM FUNKTION 
PLOTTEN 

500 IF (E>12) * < EC26) THEN 0W = 2:REM 
FUNKTION AUF BILDSCHIRM 
510 IF E>26 THEN 0W = 3 :REM KURVEND I 

SKUSSION+PLOTTEN 
520 REM 
538 REM 

540 REM FUNKTIONSEINGABE 
558 REM 
560 REM 

570 CURSOR 8,21 

538 IF < N E = 2 ) + < N E = 3 )THEN PRINT "Eing 
abe der Funktion f<x>=" 

590 IF NE = 1 THEN PRINT "Eingabe der 
2" ;CHR* <187);"h1erfunktion 

g < x ) = " 

600 G0SUB6768 

610 IF NE=1 THEN PR INT"E ingabe der 
Nennerfunktion h<x)=" : GOSU 

B 6950 

628 GOSUB 9008 
638 REM 
640 REM 

650 REM ABLEITUNGSFUNKTIONEN BEST IM 
MEN 
668 REM 
678 REM 

680 ON ERROR GOTO I960 
698 IF NE=1 THEN DEF FNA<X)=FNZ<X) 
/ F N N < X) 

780 DEF FNE(X)=<FNZ<X+.005)-FNZ<X-. 
005))/.01 

710 DEF FNF(X)=<FNN<X+.885)-FNN<X-. 
005 >)/.01 

720 DEF FNB<X) = <FNE<X)-FNF<X> *FNA<X 
> >/FNN<X> 

738 DEF FNM<X)=(FNZ<X+.01)-2*FNZ(X) 
+FNZ<X-.01>)/.0081 
740 DEF FNO=<FNN<X+.81)-2*FNN<X)+FN 
N < X-.01))/.0081 

758 DEF FNC(X)= <FNM<X)-2*FNB<X)*FN 
F(X)-FN0<X)*FNA<X))/FNN<X) 
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768 DEF FNG<X)=<FNZ<X+.015)-FNZ<X-. 
015)-3#FNZ<X+.005) +3#FNZCX-.005 
>>/.000001 

770 DEF FNH<X)=<FNN<X+.015)-FNN<X-, 
015)-3#FNN<X+.005)+3#FNN<X-.005 
)>/.000001 

780 DEF FND<X>=<FNG<X)-3#FNC<X>#FNF 
<X)-3*FNB<X)*FN0<X)-FNH<X)*FNA< 

X))/FNN(X) 

790 X=100000: AO=FNA <X) :X = -100000 : flu 
= FNA < X) 

800 DEF FNS<Y)=(AO-AU)#<Y+108000)/2 
00000 +AU 
810 GOTO 920 
820 DEF FNA(X)= FNZ<X> 

830 DEF FNB<X)=<FNZ<X +.005)-FN2<X- 
805))/.01 

840 IF NE=3 THEN DEF FNN<X)=1/FN2<X 
> : DEF FNF <X)= C-FNB <X) #FNN <X)> 
/FN2 <X > 

850 DEF FNC(X)=<FNZ<X+.01)-2*fnZ<X> 
+FNZ <X-.01))/.0001 
860 DEF FND<X)=(FN2<X+.015)-FN2(X-. 
015>-3#FNZ<X+„005)+3*FNZ<X-.005 
)>/.000001 
870 REM 
880 REM 

890 REM INTERVALLABFRAGE 
900 REM 
910 REM 

920 CLS:PRINT “Beginn des Intervall 
s auf der x-Achse." INPUT XA$ 

•' XA=VAL <XA$) 

930 PRINT "Ende des Intervalls auf 
der x-Achse" : INPUT XE$:XE=VAL 
(XE $) 

940 IF XA>=XE GOTO 920 
950 l=XE-XA 

960 IF <P-27)*<NE02) THEN K=15 : G 
OSUB 2370 : P—0 : k= 1 
970 ON ERROR GOTO1960 
980 IF FL=1 GOTO 1000 
990 IF (NE02)i(ÖW03) GOSUB 6370 : 

K=15 : GOSUB 2360 : K=1 
1000 IF NE=2 THENYU=FNA<XA>:YO=YU 
1010 IF <NE=2)*<QH=3) GOSUB 2100 
1020 IF QW=3 GOSUB 6370 :K=15:G0SUB 
2360: P=1 : K=0 : GOTO 2100 

1030 REM 
1040 REM 

1050 REM FUNKTION AUF BILDSCHIRM 
1060 REM 
1070 REM 

1080 MX=L/64 :CLS :X=XA 

1090 IF NE<>2 GOTO 1160 

1100 X = XA : YU=FNA<X) : X = XE : VO-FNA<X) ' 

1110 FOR X = XA TO XE STEP MX 

1120 V=FNA <X) 


1138 : r <- '-EH YO= Y 

1140 IF TU>T THEN YU=Y 
1158 NEXT • 

ii60 5.3 2490 : GOTO 1410 

1170 IF = = i ' - E •' RETURN 
1188 X=XA 2=22 
1198 YY = 40 

1200 NY=20 » »0 voi T j) 

1210 CLS F_=e 
1220 GOS.5 1550 
1230 1=10 

1240 FOR -=•- TO XE STEP MX 
1250 IF PZ=0 GOTO 1290 
1260 FOR U=i TO °Z 
1270 IF INT(X*100)/100=INT(PZ<U)) T 
HEN B=1 :NEXT U 

1280 IF B=1 THEN B=0 : GOTO 1330 
1298 WY=FNA(X) 

1308 IF <WY>YO)+ *-<YU) GOTO 1330 

1310 SY=2*NY-WY*YY 

1328 CSE T I,SY+5 

1330 1=1+1 

1340 NEXT X 

1358 P0KE93,$27+128 

1360 CURSOR 0,24 : PR INT"E INE TASTE 
DRUECKEN"; 

1378 P0KE93,113 

1380 GET A $ : IF A$ = "" GOTO 1380 
1398 REM 
1480 REM 

1410 REM MENUE 2 
1420 REM 
1438 REM 

1440 CLS : GOSUB 7390 
1450 CURSOR 6,2 :PRINTC0,6T" Neue 
s Interva 11“ *» 

1460 CURSOR 2,7 :PRINTC0,6ü"Funktion 
" : CURS0R2,9:PRINTC0,63"plotte 

n " : p=27 

1470 CURS0R15,7:PRINTC0,63" Neue" 

: CURSOR15,9:PRINTC0,63"Funktio 
n “ 

1480 CURS0R29,6:PRINTC0,63"Kurvendi 
s-" :CURS0R29,8:PR INTC0,6 2"küss 

i on " 

1490 CURS0R29,10:PRINTC0,63"+ plott 

en " 

1500 B$="" : GOSUB 7148 : FL=1 : P = 

8 

1510 IF <EC12)#(F>5)THEN 0W=1 : GOT 
0 958 

1520 IF (E>12)*<E<26)#<F>5) THEN CL 
R : CLS:ON ERROR GOTO 1960:GOTO 
258 

1538 IF <E>26)*<F>5)THEN QW = 3 : GOTO 
958 

1540 P=27:YU=0:Y0=8 : CURSOR 0,21 

: GOTO 920 
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1550 REM 
1560 REM 
1578 REM 
1588 REM AXIS 
1598 REM 
1600 REM 
1610 REM 

1620 ON ERROR G0T01968 
1630 FOR 1=5 TO 37 
1640 CURSOR I,Z 
1650 PRINT 
1668 NEXT I 

1670 CURSOR I,Z : PRINT "V 
1680 FOR 1=5 TO 37 STEP 5 
1698 CURSOR 1,2 
1700 PRINT 

1710 CURSOR 1-3, Z + l 

1720 PRINT USING "###.#";XA + < I-5)*L 
/32 

1730 NEXT I 
1748 FOR 1=2 TO 21 
1758 CURSOR 5,1 
1760 PRINT " | " 

1779 NEXT I 

1780 CURSOR 5,1 : PRINT "t" 

1790 N=0 

1800 FOR 1=22 TO 2 STEP -5 
1810 CURSOR 5, I 
1828 PRINT "4-" 

1830 EX=0 : Y=YU+N*<Y0-YU>/4 
1840 IF ABS < Y > >=1000 GOSUB 4850 
1850 IF <ABSC V)C.01> i»(V<>0) GOSUB 4 
080 

1868 CURSOR 0, I 

1870 PRINT USING "###.#"; INT<1008#Y 
>/1000 

1880 IF EX=8 GOTO 1910 
1898 CURSOR 0,1+1 
1900 PRINT "*E";EX 
1918 N = N +1 
1920 NEXT I 
1938 RETURN 
1948 REM 
1950 REM 

.960 REM ERRORROUT INE 
1970 REM 
1988 REM 

1998 IFERN=1THENRESUME2070 
- '38 IFERN>4THENRESUME2070 
2018 IFERL=1000 THENRESUME2070 
2220 IFERL>8080THENRESUME2070 
2230 IF ERL=1120 THEN RESUME 1158 
2240 IF ERL=1190 GOTO 2370 
2050 IF ERL=1290 THEN RESUME 1338 
2068 RESUME NEXT 

2378 CLR :CLS :CURS0R8,23 : PRINT"Ein 
gabefehler! Neustart!":GOT0258 
2230 REM 


2090 REM 

2100 REM FUNKTION BERECHNEN 
2110 REM 
2120 REM 

2138 CLS:P0KE85,10 
2148 ON ERROR GOTO 1960 
2150 P0KE84,4:PRINT"ICH BERECHNE JE 
TZT DIE FUNKTION" 

2160 PRINT:P0KE84,9:PRINT"ETWAS GED 
ULD BITTE" 

2178 CCOLOR,,2,7 :USR<$72D> 

2180 MX= <XE-XA>/40 

2190 DIM NU<20>,NO<20>,N<20) 

2200 IN = 0 : X = XA 
2210 N = SGN(FNZ < X > > 

2220 FOR X=XA TO XE STEP MX 
2238 Y = FNZ <X) 

2248 IF ABS < Y)>5 G0T02268 

2250 IF <SGN<V>ON)*<N<>0) THEN IN = 
IN + 1 : NU < IN> =X-MX : NO < IN)=X 

2268 N = SGN < Y) : B = B + 1 

2278 NEXT X 

2280 IFNE=2THEN P=1 : GOSUB 1110 : 

P = 0 

2290 GOSUB 4138 
2308 IF NEO2G0TÖ 2350 
2318 IF FNA <XA)> YO THEN YO = FNA <XA > 
2320 IF FNA <XA)CYU THEN YU=FNA<XA> 
2330 IF FNA(XE)>YO THEN YO=FNA(XE) 
2340 IF FNA <XE)<YU THEN YU = FNA <XE) 
2350 IF <NE=2>+<0W=3)GOTO 2410 
2368 IF FL=1 THEN YU=FU : YO=FO : G 
OTO 2410 

2370 CLS: PR IN T" I ch ben";CHR$<$BA) ; 
"tige den unteren y-Wert!":INP 
UT YU* : YU = VAL<YU$) 

2380 PRINT"Ich ben";CHR $( $BA);"tige 
den oberen y-Wert!":INPUT YO$ 
: YO=VAL<YO$> :CLS 
2390 IF YU>= YO GOTO 2378 
2480 FU= YU : FO= YO 
2418 IF K=15 THEN RETURN 
2420 GOTO 2498 
2438 IF NN=0 GOTO 2490 
2448 FOR 1=1 TO NN 
2458 X = MA < I) 

2468 IF YOCFNA(X) THEN YO=FNA<X) 
2470 IF YU>FNA < X) THEN YU = FNA<X) 
2488 NEXT I 

2490 MY=<YO-YU)/400 : MX=<XE-XA)/40 
0 

2580 Y0 = -YO/MY 

2510 IF <SGN<Y0>=1>*<SGN<YU>=1> THE 
N Y0=-480 

2528 IF <SGN< Y0>=-1> Üf<SGN< YU)=-1) T 
HEN Y8=0 

2530 X0=ABS<XA/MX> 

2540 IF XA>0 THEN X0=0 
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2558 IF XE<@ THEN X0=400 
2560 IFQQ=1G0T02600 

2570 IF NE® 1 THEN ZX $ ="g<x) = " : GOTO 
2600 

2580 ZX $="f <x)=" 

2590 00=1 

2600 PCOLOR 0 : PMOBE TN : PSKIP 5 
: PRINT/P ZX$ +G$ 

2618 IF NE=1 THEN PRINT/P H* 

2620 PMOBE GR : PMOVE 45,-40 : HSET 

2630 REM 
2640 REM 

2650 REM Y-ACHSE ZEICHNEN 
2660 REM 
2670 REM 

2680 ON ERROR GOTO I960 
2690 PCOLOR1 : PMOVE X0,Y0 : HSET 

.2708 M=<Y0-YU>/8 : J = 1 

2710 IF M<1 THEN M=M#10 : J=J*10 : 

GOTO 2718 

2720 M=INT <M>/J : Yl = 8 : ¥2 = 0 

2730 J I = -M 

2740 IF ¥U>0 THEN J I = Vü : GOTO 27 
98 

2750 IF YO<0 THEN JI=VÖ 
2760 FOR I=JI TO Vü STEP-M : Y1=Y1+ 

1 : NEXT I 

2778 IF Y0<8 GO.T0 2800 
2780 JI=M 

2790 FOR I=JI TO ¥0 STEP M : ¥2=¥2+ 

1 : NEXT I 

2800 Y=400/<Y1+Y2) 

2810 IF ¥1 =0 GOTO 2830 

2828 AXIS 0, INT<-M/MY + .5>,¥1 + 1 

2830 PHOME 

2840 IF ¥2=0 GOTO 2860 
2850 AXIS 0, INT<M/MY + .5>,¥2 + 1 
2860 REM 
2870 REM 

2880 REM Y-ACHSE BEMASSEN 
2890 REM 
2900 REM 

2910 N=M#Y2/MY+5 : MM=0 : K=0 

2920 JI = ¥2 

2930 IF ¥1=0 THEN J1=0 : FOR I=M TO 

¥0 STEP M : JI=JI+1 : NEXT I 
2940 IF ¥2=0 THEN JI=@ : FOR I=-M T 
0 ¥0 STEP -M : JI=JI-1 : NEXT 
I 

2950 FOR I = ¥0 TO YU STEP -M 
2960 PMOVE -40,N 

2970 IF <N< 20>*<N> -20) GOTO 

3088 

2980 Y=M*JI-M#MM : EX=0 
2990 IF ABS < ¥)>=1000 GOSÜB 4050 
3000 IF < ABS < ¥)< .01)*<Y<>0> GOSUB 
4080 

3010 Bf=STRI<¥) 


3020 

3030 

3048 

3058 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3138 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3228 

3230 

3240 

3258 

3268 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3378 

3388 

3398 

3400 


3410 


3420 

3438 

3440 

3450 

3460 

3470 

3480 

3490 

3500 


C$="#E "+STR$<EX> 

IF K=11 THEN RETURN 
GPRINT C0,03,LEFT$<Bi,5) 
IF EX=@ GOTO 3080 
PMOVE -40,N-10 

GPRINT C$ 

N = N-M/M Y : MM = MM + 1 


NEXT I 

PP=M*JI-M*<MM-1> : P1 = M*JI 

REM 

REM 

REM X-ACHSE ZEICHNEN 

REM 

REM 

PHOME 


M= < XE-XA)/8 : J = 1 

IF M<1 THEN M=M*10 : J=J*10 : 

GOTO 3180 

M=INT <M)/J : Z1 = 0 : Z2 = 0 

J I = - M 

IF XA>0 THEN JI = XA +M : GOTO 32 
60 

IF XE<@ THEN -J I = XE-M 

FOR I = JI TO XA STEP -M : Z1 = Z1 

+1 : NEXT I 

IF XE<0 GOTO 3270 


J I = M 

FOR I = JI TO XE STEP M : Z2 = Z2 + 

1 : NEXT I 

PHOME 

IF Z1=0 GOTO 3320 

AXIS 1, INT(-M/MX+ .5) ,Z1 

PHOME 

IF Z2=8 GOTO 3330 
AXIS 1, INT<M/MX+ .5),Z2 
REM 
REM 

REM X-ACHSE EEMASS'EN 

REM 

REM 


N = -MÜfZl/MX-10 : MM = 0 : K= 11 

J I = Z1 

IF Z1 = 0 THEN JI= 0 : FOR 1= M T 
0 XA STEP M : JI=JI-1 : NEXT 
I 

IF Z2=0 THEN JI=0 : FOR I=-M T 


■M 


JI=JI+1 


NEXT 


0 XA STEP 
I 

FOR 1= XA TO XE STEP M 
PMOVE N, -10 
Y=-M#JI+M #MM: EX=0 
GOSUB 2990 

GPRINT[0,0],LEFT$<B$,5> 

IF EX=0 GOTO 3490 

PMOVE N, -20 : GPRINT C$ 

N = N+ INT(M/MX + .5) : M M = M M +1 : 

EXT I 

P2=-M*JI+M#<MM-1> : P3=-M#JI 
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3518 REM 
3520 REM 

3539 REM 

3540 REM GRAPH 2EICHNEN 
3550 REM 

3560 REM 

3570 ON ERROR GOTO I960 
3580 PHOME : PCOLOR 0 
3590 IJ=0 : XB = P3 
3600 IF VU>0 THEN IJ=-PP/MV 
3610 IF Y0<8 THEN IJ=-P1/MY 
3620 IF XA>0 THEN XB = @ 

3630 IF XE<0 THEN XB=-XE+P3 
3640 N=0 : J=1 : K=1 

3650 FOR X = P3 TO XE STEP 2#MX 
3660 IF NE=1 THEN : IF ABS<FNN(X)>< 
.000001 GOTO 3738 
3670 IF K=1 THEN GR = FNA < X > 

3680 IF K = 2 THEN GR = FNB < X > 

3698 IF K=3 THEN GR=FNCCX) 

3700 IF < GR> YO > +<GRCYU) THEN J = J + 1 
: GOTO 3730 

3710 IF J>0 THEN PMOVE <XB+N)/MX,GR 
/MY+IJ : J=0 

3720 PL INE« 1, INT<<XB+N>/MX + .5>, G R / 
MY + IJ 

3738 N=N+2*MX 
3740 NEXT X 

3750 IF KOI THEN RETURN 
3760 IF NN=0 GOTO 3850 
3778 FOR 1=1 TO NN 
3780 X = MA <I) 

3790 PMOVEINT < < X B + M A (I)-P3)/MX+.5), 
FNA <X>/MY+IJ 

3800 RL INE «8,-INT < < XB + MA(I)-P3)/MX 
+.5),8 

3 810 PMOVE INT < <XB+MA(I>-P3>/MX + .5), 
FNA<X>/MY+IJ 

3828 RLINE «8,0,-FNA<X)/MY-IJ 
3830 NEXT I 

3840 IF NE=3 GOTO 3940 
3850 IF P2=0 GOTO 3900 
3868 FOR 1=1 TO P2 

3370 PMOVE INT < (XB+P2 <I)-P3>/MX + .5> 

,YO/MY+IJ 

3880 PLINE «12,INT<<XB+P2<I>-P3>/MX 
+ .5) ,YU/MY+IJ 
3890 NEXT I 

3 300 IF NEOl GOTO 3940 
3910 Y = P3 : AN = FNS < Y> : Y = XE : EN=FN 
S< Y> 

3920 REM MOVE P3/MX,AN/MY+IJ 
3930 REM LINE«16, INT<XE/MX + .5> , E N / M 
Y+IJ 

3348 REM MOVE 0,YU/MY-30 
3958 CLS : IF QW=1 THEN RETURN 
3960 GOSUB 5330 
3570 GOTO 1410 


3980 REM 
3998 REM 
4000 REM 

4010 REM EXPONENTIALDARSTELLUNG 
4020 REM 
4030 REM 

4040 ON ERROR GOTO I960 
4050 Y = Y/10 0 0 : EX = EX+3 

4060 IF ABS<Y>>=1000 GOTO 4050 
4070 RETURN 

4080 Y= Y #1000 : EX = EX-3 

4090 IF ABS < Y)< .01 GOTO 4088 

4100 RETURN 

4110 REM 

4120 REM 

4130 REM BERECHNUNG DES SCHNITTPUNK 
TES MIT DER Y-ACHSE 
4148 REM 
4150 REM 

4168 ON ERROR GOTO1960 
4170 IF <NE<>2> #<P2<>0)THEN:F0RI = 1T0 
P2:IFP2<I>=0 THENJ=-1:NEXTI:IF 
J = -1THENJ = 0:60 TO4220 
4180 X = 0 

4198 SC$ ="Schnittpunkt mit der y-A 
chse : E0,"+STR* <INT <FNA<X> *100 
+ .5 >/10 0 >+" 3 " 

4200 REM 
4210 REM 

4220 REM NULLSTELLEN BERECHNEN MIT 
REGULA FALSI 
4230 REM 
4240 REM 
4250 DIM B$ <20> 

4260 ON ERROR GOTO I960 
4270 IF IN=0 GOTO 4480 
4288 IF IN>15 THEN PRINT:PRINT "NUL 
LS TELLEN KOENNEN NICHT BERECHN 
ET WERDEN" : PRINT:PR INT " 

BITTE KLEINEREN MASSSTAB WAEHL 
EN" : RETURN 
4290 J=1 

4308 FOR I=J TO IN 

4310 X = NU < I > : UN = FN2 < X) : X = NO<I) 

: ÖB = FN2 < X) 

4320 X = N U < I)- UN#(NU(I>-NO<I))/(IJN- 
OB > 

4338 MI = FN2 (X) 

4340 IF ABS<NU< I)-NO<I))C.0008001 T 
HEN M I = 8 

4350 IF ABS<MI)C.0000001 THEN N<I) 
= INT <100#X + .5)/100 : GOSUB 441 

0 : GOTO 4398 

4360 IF SGN<M I)=SGN<UN) THEN NU<I> = 
X : GOTO 4318 

4370 IF SGN<M I)=SGN(OB) THEN NO(I> = 
X : GOTO 4310 

4380 M I =-M I : GOTO 4360 
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4390 NEXT I 

4400 GOTO 4480 

4410 Bf< I) = "Nullstelle" 

4420 IF ABS(FNB (X) )C.01 THEN Bf(I)= 
"Doppelte Nullstelle" 

4430 IF (ABS(FNB(X)X.1> I<ABS<FNC<X 
)X.5> THEN B f ( I) = " Dreifache N 
u1lste Ile" 

4440 IF <ABS(FNB(X) X. 1) #<ABS(FNC<X 
) X.5) #<ABS(FND<X> X.5) THEN B 
f < I) = " V i erf ache Nullstelle" 
4450 RETURN 
4460 REM 
4470 REM 

4480 REM F x < X) BERECHNEN 
4490 REM 
4500 REM 

4510 CCOLOR,,5,2:USR(f72D) 

4520 ON ERROR GOTO 1960 
4530 DIM NL<20),MA<20),WE<20),Cf<20 
>,VM <20) 

4548 X=XA 

4550 N=SGN <FNB (X) ) 

4560 J=1 : NN=0 

4578 FOR X=XA TO XE STEP MX 
4580 IF NE02THEN : IF ABS(FNN(X)X 
.000001 GOTO 4630 
4598 DI=FNB<X) 

4600 IFABS<SGN<DI)-N)=1 GOTO 4630 
4610 IF SGN <D I > ON THEN NN = NN +1 : N 
U(NN)=X-2 #MX : NO < NN)=X 
4620 N=SGN(DI) 

4630 NEXT X 
4640 REM 
4658 REM 

4660 REM NULLSTELLEN DER ERSTEN ABL 
EITUNG 
4670 REM 
4680 REM 

4690 T=<YO-VU>/5000 : 0=0 : 1=0 

4700 ON ERROR GOTO1960 

4710 IF NE=1 THEN T=.002 

4720 IF NN=0 GOTO 5100 

4730 FOR S=1 TO NN 

4740 IF NEOl GOTO 4780 

4750 FOR 0=1 TO PZ 

4760 IF <P2<Q)> = NU(S> ) *<PZ(QX = NO<S 
)) GOTO 4960 
4770 NEXT Q 
4780 1=1+1 

4790 X=NU(S) : UN=FNB(X) : X=NO(S) 

: OB=FNB(X):IF UN=OB THEN MI=@ 

: GOTO 4830 

4800 X=NU(S>-UN#<NU(S)-NO<S>>/<UN-0 
B) 

4310 MI=FNB(X) 

4820 IF ABS(NU(S>-NO(S)X.8000001 T 
HEN M1=0 


4830 IF ABS(MIX.000001 THEN GOSUB 
4990 : GOSUB 5880 : GOTO 4870 

4840 IF SGN(MI)=SGN(UN) THEN NU(S>= 
X : GOTO 4798 

4850 IF SGN(M I)=SGN (OB) THEN NO(S) = 
X : GOTO 4790 
4868 MI =-M I : GOTO 4840 
4870 IF FNC(X)>0 THEN Cf(I)="Minim 
um" 

4880 IF FNC <X)<0 THEN Cf<I) = "Maximu 
m" 

4890 YM< I) = INT(FNA(X)*100 + .5)/100 
4900 QA=0: F0RJ=1T0IN 
4910 IFN(J)=MA<I)THEN0A=1 
4920 NEXTJ 

4930 IFOA=1THENÖA=0:G0T04968 
4940 IF <ABS(FNA(X) XT#10) #<ABS(FNB 
<X) ) CT# 18> # (ABS (FNC (X) XT*10) 
THEN I N= IN +1 : Bf( IN>="Dreifac 
he Nullstelle" : N(IN)=MA(I) : 

FOR J=1 TO IN—1 : IF N(J)=MA< 

I) THEN IN = IN-1 : HEXT J:G0T04 
968 

4950 IF ABS (FNA (X) +FNB (X) XT*18 THE 
N IN= IN +1 : Bf<IN) = "Doppelte N 
ullstelle" : N(IN)=MA(I) : FOR 
J = 1 TO IN-1 : IF N < J > =MA( I > T 
HEN IN= IN-1 : NEXT J 

4960 NEXT S 
4970 NN= I 
4980 GOTO 5108 

4990 MA( I) = INT (100Ü(X + .5)/100 

5000 IF PZ=8 GOTO 5040 

5010 FOR Q=1 TO PZ 

5028 IF MA(I)=P2(0) THEN 1=1-1 

5038 NEXT 0 

5048 RETURN 

5058 REM 

5068 REM 

5078 REM ERGEBNISSE AUF BILDSCHIRM 
5880 REM 
5890 REM 

5100 GOSUB 5940 : CLS 

5110 CCOLOR,,7,1:USR(f72D> 

5120 T=<YO-YU)/5000 :PRINTSCf 
5130 IF IN=0 GOTO 5170 
5140 FOR 1=1 TO IN 

5158 PRINT B f < I) ; I ; " C " j N < I) ; ", 0 3 11 
5160 NEXT I 

5178 IF PZ=8 GOTO 5210 
5180 FOR 1=1 TO PZ 

5190 PRINT "Def initionsl";CHRf(173) 

;"cke"; I;" bei x = "j PZ( I > 

5208 NEXT I 

5218 IF NN=@ GOTO 5248 
5220 FOR 1=1 TO NN 

5238 PRINT Cf<I);" C" ; MA< I YM( 

I);":** : NEXT I 
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f GOSUB 
P 4878 
NU < S > = 


NO < S) = 


pMin im 
faximu 
✓ 100 


E3 (FNB 
1*10) 
r = itac 
FK I) : 
I = MA < 
G0T04 

18 THE 
alte N 
FOR 
*<I> T 


:h IRM 


.83" 


|< 173 ) 


J YM < 
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5240 IF W=@ GOTO 5320 
5250 DIM D*<W> 

5260 FOR 1=1 TO W 
5278 Df< I) = "Wendepunkt" 

5288 X = WE < I > 

5290 PRINT D f < I >; I ;" C";WE< I > ; " , "; 

INT < FNA(X > *100)/100;"3" 

5380 PRINT "Steigung der Wendetange 
nte : "; INT<FNB<X)*100 + .5)/108 
5318 NEXT I 
5320 RETURN 

5330 PRINT "ZUM ZEICHNEN DES GRAPHE 
N DER ERSTEN ABLEITUNG DIE 

TASTE J DRUECKEN" 

5340 PR INT"SONS T IRGEND EINE ANDERE 
TASTE" 

5350 GET A* : IF Af ="" GOTO 5350 

5360 IF A f = " J " THEN GOSUB 5420 

5370 GOSUB 5630 

5380 RETURN 

5390 REM 

5400 REM 

5410 REM 

5420 REM Y' ZEICHNEN 
5430 REM 
5440 REM 

5450 CLS:ON ERROR GOTO I960 

5460 N=8 : J=1 : PMODE GR : PCOLOR 

2 : K = 2 

5470 GOSUB 3658 

5480 PRINT "ZUM ZEICHNEN DER ZWEITE 
N ABLEITUNG TASTE J DRUEC 

KEN" 

5490 PRINT"SONST IRGEND EINE ANDERE 
TASTE" 

5580 GET Af : IF Af="" GOTO 5500 
5510 IF AfO"J" THEN RETURN 
5520 REM 
5530 REM 

5540 REM F" ZEICHNEN 
5550 REM 
5560 REM 

5578 CLS :ON ERROR GOTO I960 
5580 N=0 : J=1 : PMODE GR : PCOLOR 

3 : K = 3 

5598 GOSUB 3650 
5680 RETURN 
5610 REM 
5620 REM 

5630 REM NULLSTELLEN UND EXTREMWERT 
E DRUCKEN 
5640 REM 
5658 REM 

5660 ON ERROR GOTO I960 
5670 PMOVE -X0-40J YU/MY-80 
5680 PMODE TN : PCOLOR 0 
5690 PRINT/P SC* 

5780 IF IN=0 GOTO 5740 


5710 FOR 1=1 TO IN 

5720 PRINT/P B f < I > ; I ; " C"jN<I);",83 

li 

5730 NEXT I 

5740 IF PZ=0 GOTO 5780 
5750 FOR 1=1 TO PZ 

5760 PRINT/P "Definitionsl";CHR f <17 
3);"cke";I;" bei x= ";PZ(I) 
5770 NEXT I 

5780 IF NN=0 GOTO 5818 
5798 FOR 1=1 TO NN 

5800 PRINT/P C *( I) ;" CMA<IY 
MCI);" 3" : NEXT I 

5818 IF W=8 GOTO 5870 
5828 FOR 1=1 TO W 
5838 X = WE ( I) 

5848 PRINT/P D f ( I) ; I ; " C " ; X ; " , " ; IN 
T <FNA <X) *100+.5)/10@ "3" 

5850 PRINT/P "Steigung der Wendetan 
gente: "; INT(FNB(X)*180 + .5)/10 

0 

5860 NEXT I 
5870 RETURN 

5888 IF NE=1 GOTO 5918 

5890 IF YOCFNA <X) THEN YO = FNA<X) 

5908 IF YU>FNA<X) THEN YU=FNA<X) 

5918 RETURN 

5920 REM 

5930 REM 

5940 REM F" BERECHNEN 
5958 REM 
5960 REM 

5978 CCOLOR,,1,6:USR<$72D) 

5988 X=XA 

5990 J=1 :W = 0 :N = SGN<FNC<X>) :0A = 8 
6000 FOR X=XA TO XE STEP MX 
6810 D2 = FNC(X) : IFD2>.0001THENOA=1 
6020 IFABS<SGN<D2)-N)=1 GOTO 6868 
6038 IFABS(D2)>5GOTO6050 
6840 IF SGN<D2)ON THEN W = W + 1 : NU< 

W)=X-MX : NO < W)=X 
6050 N=SGN<D2> 

6060 NEXT X 

6070 IFQA = 8THENW=0 :RETURN 
6080 REM 
6890 REM 

6100 REM NULLSTELLEN DER ZWEITEN AB 
LEITUNG 
6110 REM 
6120 REM 

6130 IF W=8 THEN RETURN 
6148 R=0:ON ERROR GOTO I960 
6158 FOR 1=1 TO W 

6160 IF <NE = 1) * CPZO0) GOSUB 6318 
6178 X = NU < I) : UN = FNC <X> : X = NO<I> 

: OB = FNC (X) 

6188 IF UNOOB THEN X=NU < I >-UN* <NU < 
I )-NO < I))/(UN-ÖB) 
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1. Balken: Abschlagwinkel 

2. Balken: Schlagstärke 

Je länger der Balken, desto größer 
der Winkel, bzw. die Stärke. Zur 
Eingabe muß bei passender Länge nur 
"Space" gedrückt werden. 

Man kann davon ausgehen, daß bei 
halbem Winkel (=45 Grad) und maxi¬ 
maler Stärke, der Ball am weitesten 
fliegt. Bei maximalem Winkel nimmt 
die Flugweite ab. 

Nach kurzer Zeit kann der Ball mit 
"Space" abgeschlagen werden. Gerät 
er ins Wasser (blau), ist er verlo¬ 
ren. Fällt er dagegen in den Sand 
(gelb), kann er nur mit sehr 
großem Winkel herausgeschlagen wer¬ 
den. Fliegt der Ball auf den Rasen 
(grün), so kommt man einen Schritt 
weiter. Das Bild vergrößert sich 
und nun kann geputtet werden, wozu 
nur noch die Schlagstärke abgefragt 
wird. 


Ein Tip: Der Abstand des Balls vom 
Loch und die Länge des Schlagstär¬ 
kebalkens sollten gleich sein. 

Nach dem Einlochen wird der Spiel¬ 
stand aktualisiert und es geht 
weiter zum nächsten Loch. 

Wird das Spiel zu zweit gespielt, 
kommt jetzt erst mal Spieler 2 
dran. In Zeile 1 steht der Spiel¬ 
stand, bzw. Spielstand und aktuel¬ 
ler Spieler. 

Erscheinen Hindernisse auf dem 
Spielfeld (Bäume, Mast), kann der 
Ball sie erst ab einer bestimmten 
Flughöhe überwinden; ansonsten 
prallt er ab. Diese Höhe ist von 
Baum zu Baum verschieden. 

Das Spiel ist beendet, wenn alle 
Löcher durchlaufen sind und das 
beste Tagesergebnis erscheint oder 
wenn die Anzahl der Schläge die 
Vorgabe von 99 übersteigt. 

Manfred Hille 


10 REM GOLF 

28 REM FUER CHIP SPECIAL 
30 REM VOM MANFRED HILLE 
40 REM 


100 

CONSOLE:COLOR,,1.6 
,5 

: CLS : CURSOR 

110 

PR INT TAB <7> ; " <—1 

A*mmL 

120 

PR INT TAB(7);"■ 

9 ■ 

130 

PR INT TAB(7); "■ 

■ 1 


0 


140 

150 

160 

178 

180 

190 

200 

210 

220 


PRINTTAB<7> ; "| 

sar" 

PRINTTAB<7) ; "| 

1 " 

PRINTTAB<7) ; 


PRINTTAB<7> ; "" 

w w 

CURSOR 7 ,16 : PR IN T C 0, ]"by Manfre 
d Hille 1985" : CURSOR 7,19:PRIN 
T C 2 ,3"1 oder 2 Spieler ?":GET A 
lf : IF Alf ="" THEN 180 
COLOR,,7,0:CLS:CONSOLE 2,22 
CURSOR 0,1 :PRINTC5,3" Loch 


Meter par " 

CURSOR 0,24 :P0KE$5D,PEEK<$5B> +1 
28:PRINTC5,03" GOLF 

-COURSE " 

IF Alf = "1" THEN CURSOR 0,0:PR 
INTC7,23" SPIELSTAND 

-* Par “ :G0T0 300 


230 IF Alf = "2" THEN CURSOR 0 , 0 : PR 
INTC7,23" par 1 SPIELER 

•+ 2 par 11 : GO TO 300 

240 GOTO 130 
250 '• 

*## 

270 ' HAPRO 

### 

290 '• 

300 ON ERROR GOTO 7560 
310 DIM V < 80),X < 30 > 

328 L = 1 •• SS = 8 :G1 = 0 :G2 = 0 :G=1 : H 1 = 100 :M 
f="C0G0+E0Rl+G0C2" 

330 ' 

348 x 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , a neues Loch 44444 
4 4 4 4 
350 ' 

360 X=l@ 

370 CLS;I=X/2-5: IF X>=73 THEN 2730 
388 ' 

390 ' 4>4'4'4>4>f 4'4>4>4' B gleiches Loch 444 

400 ON L GOSUB 5400,5490,5570,5680, 
5310,5890,6070,6150,6290,6360,6 
540,6660,6740,6870,6960,7090,73 
10,7440 

410 CURSOR 9,1: PR INTC5,3 L 
420 CURSOR 15,1;PRINTC5,3USING"###" 
;WL#100 

430 CURSOR 37,1:PRINTC5,3 PA 
448 GOSUB 5140 
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108 :M 


» + + 4- + 


[ 2738 

n + + + 

5688 , 

360,6 

90,73 


"4##" 
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458 

460 

470 

438 

490 

588 


510 

528 

530 

540 

550 

568 

578 

588 

590 

600 

618 

620 

638 

640 

650 

660 

678 

630 

690 

700 

710 

728 


740 

750 


768 


778 


780 

790 

308 

810 

820 

838 

848 


IF I>X/2 GOSUB 2240:GOTO 478 

GOSUB 2098 

IF X < LP THEN 498 

GOSUB 2540:GO TO 508 

GOSUB 2388 

ON L GOSUB 5408,5490,5570,5680, 
5810,5890,6070,6150,6290,6360,6 
540,6660,6740,6870,6960,7098,73 
10,7440 

IF XCLP THEN GOSUB 2380:GOTO 53 
8 

GOSUB 2540 
GOSUB 1290 
GOSUB 850 

IF FI*="R" THEN 570 
GOSUB 2650:GO TO 580 
GOSUB 2480 
GOSUB 1130 : GOT0 400 


+ + + + + B +++++++++++++++ 

1111 


G = G +1:IF G ( 3 THEN 640 
G = 1 : L = L +1 

IF L < = 18 THEN 340 

y 

' fi i + + + + + t + + + + a +++++++++++++++ 
111 

CONSOLE:CLS :GOSUB 6960:CURSOR 0 
,22 

PRINT" Ber Golf Course ist zu 
Ende ," 

PRINT" jetzt hoch die Tassen i 
m Club ! " 

IF Gl < HI THEN HI = Gl 
IF G2 < HI THEN HI = G2 
CURSOR 1,4 :PRINT"Bestes Tsgeser 
gebnis par :PRINTUSING"##+"; 
HI 

IF A1*="2 " GOTO 760 

CURSOR 1,6:PR INT"Be in Ergebnis 

. par "; :PR IN TUS ING"##+ "j 

Gl : GO TO 780 

CURSOR 1,6 :PRINT"Spieler 1 .... 

. par PR INTUS ING"## + "; 

Gl 

CURSOR 1,8 :PRINT"Spieler 2 - 

. par " ; : PR IN TUS ING"## + "; 

G2 

CURSOR 15,10 : PRINT"ftuf ein Neue 
s ?" 

GET ft* 

IF ft$ = "" GOTO 790 
IF A* = "J" GOTO 10 
CONSOLE:COLOR,,7,1:CLS:CLR:ENB 


'****************************** 


#### 

850 ' FLUGBAHN BERECHNEN 

fl y &&&&&&&&&&&&&&£&&&&&$&&$&&&&&& 

W Ou 4 l TTT4 s T i TT'rT , ri*TTT4 k Tl k T'ri v TT'TTTl''J l T'I' 

870 CURSOR 3,4 : P R IN T C 4,3" Kr";CHR*< 
187);"fte sammeln zum Abschlag 

I «> 

880 0 = 0 : S=.1 : HZ=1 : AP = 0:X<O>=0:GX = 0 

890 FOR SZ=1T03 

980 FOR J=44 TO 47.1 STEP S 

910 0=0+1 

928 Y(Q)=39-INT<SIN<J)#H/HZ> 

930 IF . <AP = 1> + <FI* = "L") THEN 958 
940 X=X+W:G0T0 960 
950 X=X-W 

968 IF X<10 THEN X=10 
970 X<0>=X 

980 IF <Y<0>>HY>#<X(Q><=HX+1>#<X<Q> 
>=HX-1) THEN AP=1 
998 NEXT J 
1800 HZ = HZ +6 : S=.2 
1010 NEXT SZ 

1028 IF < INT<X<Q>>> = GA>*< INT<X<Q>X 
= GE> THEN GX=1 

1030 IF INT (X (Q))=LP THEN SS=1 
1048 CURSOR 3,4 :PRINTC5,3" ====> AB 
SCHLAG -+ <SPACE> <====" 

1050 TEMPO 7 : MUS IC M* 

1068 SC = SC + 1:CURS0R 13,22 : PR INTC4,8 
TSC;:PRINBC6,03". SCHLAG" 

1070 GET Af: 

1030 IF A* = "Bl" THEN 820 
1090 IF A* O " " THEN 1070 
1100 CURSOR 3,4 : PR IN T SPC<33> 

1110 RETURN 

1 A V tlf Jj Jj (L *L tlj tL «L» «L «L tL ti» «L U« tL tb «I# tl« «1« <b «b tb tb «b ib tb tb «b <b 

1138 ' FLUGBAHN ZEICHNEN 

1158 FOR J=1 TO 0 
1168 IF Y < J) < 5 THEN 2730 
1170 IF X < J)> = 73 THEN 2730 
1188 IF SX=1 THEN 1210 
1190 IF <INT<X<J>>>=SA>*<INT<X<J>>< 
=SE)# < Y(J)=39 > THEN X=X(J):G0T 
0 2840 

1280 GOTO 1228 
1218 SX=8 

1220 IF < INT(X<J>>>=HA>#<INT<X<J>X 
=WE>*<Y<J>=39> THEN 2738 
1238 SET INT < X < J > >,Y<J) ,7 
1240 RESET INT(X <J-l)),Y(J-l) 

1250 NEXT J 

1268 IF SS=1 THEN RESET INT<X<J)),Y 
<J> : GO TO 4670 
1278 IF GX=1 THEN 2968 
1288 RETURN 
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1290 

1308 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 


''3(eä|e3(EJiEJ(E}(e J (E3|6 J | £ä f E ä| { j| E)(£ ä) tJtE3|f j (E# ^ JjEJ(£äjeä|eJ(e3(£J(e3(£#3j{ 

SCHLAG ABFRAGEN 

************************ 

UJRbOR 0,3 :PRINTC5,0] , 'HinkPl" 

CURSOR 6,2 

PRINT" - - 


CURSOR 6,3 
PRINT" | 

I " 

CURSOR 6,4 
PRINT"l- 

—i •• 


1398 

1400 

1410 

1420 

1438 

1440 

1450 

1468 

1470 

I486 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 


: FOR J=i TO 20:N 


FOR P=1 JO 24 
CURSOR 6 + P,3 
PRINTC5,0]"1" 

EX T J 
GET A$ 

IF A$= "fil" THEN 820 
IF A$ = " " THEN 1540 
NEXT P 

FOR P=24 TOI STEP -1 
CURSOR 6+P,3 

GET^Af " ; |röR '- I ~ TO 20:NEXTJ 

IF A$=" " THEN 1540 
IF A f = "|3" THEN 820 
NEXT P 
COT 01290 
H = P/2 

CURSOR 0,7:PRINTC3,03"St";CHR$ 

<187);"rk e" 

CURSOR 6,6 

PRINT" - - 

il 

-1 

CURSOR 6,7 
PR INT" I 


1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


CURSOR 6,8 
PRINT" l__ 

_i " ~ 

FOR P=i TO 24 
CURSOR 6 +P,7 

PRINTC3,0]"1" ; :FOR J=1 T 0 20N 
EXTJ ri 

GE T A i 

IF A$ = " THEN 1760 
NEXT P 

FOR P=24 TOI STEP -1 
CURSOR 6 + P,7 

PRINT" " ; : FOR -J= 1 TO 20:NEXTJ 
GET A $ 

IF A* = " " THEN 1760 
IF A $= "13" THEN 820 
NEXT P 
GO TO 1620 

IF SX= 1 THEN W = P/90 : H = H#1.5 : <30 
TO 1790 


1770 

1780 
1790 
1300 
1810 
1820 

1838 

1840 

1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1948 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2028 
2030 
2040 
2050 
2860 
2070 
2030 


IF GR-1 THEN W=(P-1)*2:G0T0 
90 

W = P/ < 10JKWL) -H/100 
H = H +W * 10 : IF w = 0 THEN H = 8 
CONSOLE 2, 9 : CLS:CONSOLE 2 22 
RETURN 

**# 

F I GUR 

##*!******************** ****** 

USR < 68) 

CURSOR 1,17 
CURSOR 1,18 
CURSOR 1,13 
USR(71) : FOR 
RETURN 
USR(63) 

CURSOR 1,17 
CURSOR 1,18 
CURSOR 1,19 

USR<71):F0R P=1TO80:NEXT 
RETURN 
USR <68) 

CURSOR 1,17 


PR IN T C 6,0 3" 0 

PRINTC5,03" /| 
PRINT" / \ " 

P =1T 0 8 0:NEXT 


PRINTC6 
PR INTC5 
PRINT" 


03" 
0 3" 
M 


S\ 


0 


2090 


2100 


2110 

2120 

2130 

2140 

2150 

2160 

2178 

2180 

2190 

2200 

2210 

2220 

2238 

2240 


PRINTE6,83" 

CURSOR I , 18 : PR INTC5,03 " /| 
CURSOR 1,19: PR INT" |f " 
USRt71>:F0R P=1TO80:NEXT 
RETURN 
USR(68) 

CURSOR I,17:PRINTC6,03" 0 " 

CURSOR I,18 :PRINTC5,03" /| 
CURSOR 1,19 .PRINT" /\ " 

USR<71):F0R P=1TO80:NEXT 
RETURN 

•'****## LAUFEN RECHTS ** * ** ** 
$ $ $ $ $ 

FOR R=15 TO 18 : CURSOR I,R:PRIN 
T SPC <7) :NEX T R 

Ur N <I>X/2_5> * <X<LP > THEN RET 

IF X/2CI+3 GOTO 2240 
GOSUB 1850 

<I>X/2_5 > * <X<LP) 

EN RETURN 

IF I>X/2 +1 THEN RETURN 
GOSUB 1910 

1=1+1:IF (I>X/2-5> * <X<LP> 

EN RETURN 

IF I>X/2 +1 THEN RETURN 
GOSUB 1970 

I=I + 1:IF <I>X/2-5) # < X<LP) 

EN RETURN 

IF I>X/2 +1 THEN RETURN 
GOSUB 2030 
GOTO 2130 

********* LAUFEN LINKS ****** 
***** 


TH 


TH 


TH 
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2250 GOSUB 1850 

2260 1=1-1: IF <KX/2+4)#<X>LP) THEN 
RETURN 

2270 IF I<X/2-6 THEN RETURN 
2280 GOSUB 1910 

2290 1=1-1 : IF < KX/2+4) *<X>LP) THEN 
RETURN 

2300 IF KX/2-6 THEN RETURN 
2310 GOSUB 1978 

2320 1=1-1: IF < KX/2+4) *<X>LP) THEN 
RETURN 

2330 IF KX/2-6 THEN RETURN 
2340 GÖSUB2030 

2350 1=1-1 : IF < KX/2+4)*<X>LP> THEN 
RETURN 

2360 IF KX/2-6 THEN RETURN 
2370 GOTO 2250 

2380 '*** * * RECHTE SCHLAGSTELLUNG * 

2390 I = X/2-5 
2400 FI$="R " 

2410 SET 1*2,31,4 
2420 CURSOR I ,16 : PR INTC4,0 1 
2430 CURSOR I ,17 : PR INTC4,03" V; :PR I 
NTC6,0T"\";CHR$(103);" 

2440 CURSOR I,18:PRINT" v* ; : PR IN T C 5 
, 0 3 "■ 

2450 CURSOR I,19:PRINT" /i 
2468 SET INT <X) ,39,7 
2470 RETURN 

2480 CURSOR I,16:PRINT" " : RESET I * 
2,31 

2490 CURSOR I,17:PRINT " ";CHRt<10 

3) 

2580 CURSOR I , 18 :PRINTC5,03" 1" j :P 

R INT " 

2510 CURSOR I , 19 : PR IN T" / | \ 

2520 SET 1*2+8,39 
2530 RETURN 

2540 ••■***** LINKE SCHLAGSTELLUNG ** 

**** 

2550 I = X/2 +1 
2560 FI$="L" 

2570 IF I *2 +6>79 THEN 2590 
2580 SET 1*2+6,31,4 
2590 CURSOR I , 16 : PR INT 1 4,03" /" 

2600 CURSOR I ,17 : PR INTCHR*<103);"/" 
; : P R IN T C 4,0 3 " / 

2610 CURSOR I,18:PRINTC5,0:"i";:PRI 
NT"/ 

2628 CURSOR I , 19 : PR IN T "| \ 

2630 SET INT <X) ,39 
2640 RETURN 

2650 IF I *2 +6>79 THEN 2670 
2660 RESET 1*2+6,31 
2678 CURSOR I,16:PR INT" • 

2680 CURSOR I+1,17:PR INT" " 

2690 CURSOR I-1,18 :PRINT" / "; • PRINTE 


5,0] "1 

2708 CURSOR 1-1,19 :PRINT"/| \ " 

2710 RETURN 
2720 

Li I tmm W *T* T V T T *1» T T T T 'I* *T T T M* *r T* q» »p *!• 'S* T *p q» »p ff» 

**** 

2730 ' BALL INS WASSER 
2740 '***************************** 
**** 

2758 FOR P=1 TO 10 

2760 CURSOR X<J)/2-1,19:PR INTC1,03" 

II 

•> f 

2770 CURSOR X<J>/2-1,18:PR INTC1,03" 

II 

^ r r 

2780 CURSOR 13,3 : PR INT"WASSER ! " 
2790 TEMPO 7:MUS IC "+G0" 

2800 CURSOR 13,3 :PRINT" 

2810 TEMPO 7:MUS IC "+A0" 

2820 NEXT P 
2830 GOTO 360 

^ Q J O •** 

**** 

2850 ' BALL IN SAND 

2360 ' ***************************** 

2870 FOR P=1 TO 10 

2880 CURSOR X<J)/2-1,19:PRINTC6,0D" 

II 

2890 CURSOR X<J)/2-1,18:PR INTC6,03" 

It 

2908 CURSOR 13,8 :PRINT"SAND !" 

2910 TEMPO 7:MUS IC "-G0" 

2920 CURSOR 13,3:PRINT" 

2930 TEMP07:MUSIC"-A20":NEXT P:SX=1 
:GO TO450 

#*** 

2950 ' BALL AUF GRUEN 

Cm 7 D W **^^****ff*V^^**^*^*®*®***JpJpJpiP 

*** 

2970 FOR P=1 TO 10 

2980 CURSOR 13,3 : PR INT"GRUEN !" 

2990 TEMPO 7:MUS IC "-C0" 

3000 CURSOR 13,3: PR INT" 

3010 TEMPO 7:MUS IC "+D0" 

3820 NEXT P 
3030 CLS 

3040 IF X>LP THEN X1 = 40 + <(X-LP)*2.5 
> :IF X1>69 THEN X1=69:G0T0 306 
0 

3050 Xl=40-<<LP-X)*2.5):IF X1C10 TH 
EN Xl=10 

3060 

+ + 4 

3070 I = IN T<Xl/2)-l 

3030 IF X1>40 THEN F*="L":GOTO 3100 
3090 F1="R" 

3180 GOSUB 4500 
3110 GOSUB 3380 
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3170 

3180 

3190 

3200 

3210 

3220 

3230 

3248 

3250 

3260 

3278 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 


3378 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3538 

3540 

3550 

3560 

3570 

3580 

3590 


GR = 1 

GOSUB 1550 
GR = 0 

GOSUB 3800 

SC = SC+ 1 : CURSOR 13,22 :■ PR INTC4 0 
3SC; :PRINTE6,03". SCHLAG" 

TA q^7Ö L " THEN W^BS(X1- W >: Ö0 

IO 3210 

W1=X1+W 

F0R ^3=X1 TO W1-GOTO 3220 
FOR X2 = X 1 TO Ml STEP -1 
P2 = P2 +.5 

IF P2=3 GOSUB 3780 

IF X2C12 THEN X=GA-2-G0T0 370 

IP 7 X2C72) *<X2 >70 > THEN X=GE+1 
:GOTO 370 

IF X2>=72 THEN X(J)=77:G0T0 27 
SET X2,41,7 

FOR P1 = 0 to P2 : NEX T PI 

RESET X2,41 

HEXT X2:SET X2,41,7 

iL^ 2>38>!|f<X2<42> THEN 4670 
FOR P=1 TO 200:NEXT P 

X1=X2:GOSUB 4260 
GOTO 3060 

s 

t t t t 


3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 


SET 1*2-8,39,5 
GOTO 3750 


#*# ARM NACH LINKS ### 


CURSOR 1+2,16 

PR INTE3,8 3 "\ 

CURSOR 1+2,17:PRINTC3,0T" \ 

3690 CURSOR 1+2,18 

3700 PR IN T E3,03 ,l ' x " ; : PR I N T E5,03 

3710 CURSOR 1+4,19 
3720 PR IN T E5,03"\ <> 

3730 SET 1*2+9,39,5 
3748 ' 

3750 
3760 
3770 
3780 
3790 
3800 
3810 


SET XI,41,7 

RETURN 

/ 


'*** FIGUR AUF GRUEN *** 

I—INT <I> 

CURSOR 1-1,14 

P 03" gJ I> ' PE£:X<:f5D>+12s : PRIHTC6 

CURSOR 1-1,15 

P ^ E * 5D ' p EEK(*5B) +128 :PRINTC6 

fWJ WX “ 

CURSOR 1-2,16 

PRINTE5,03" il » 

CURSOR 1-2,17 :PRINTE5,03" 

CURSOR 1-2,18 

PRINTE3,03" " 

CURSOR 1-2,19 
PR INT[3,0 3" / \ 

CURSOR 1-2,20 
PRINTC3,03" / \ 

IF F$ = "L" GOTO 3640 


3820 

3830 

3840 

3850 

3860 

3878 

3880 

3890 

3900 

3910 

3920 


3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 


••#*# FIGUR NACH SCHLAG #*# 
CURSOR 1-1,14 

POKE *5D,PEEK<*51>>+128:PRINTC6 

f 8 J qr »« 

CURSOR 1-1,15 

* 5D ' PEEK <*5D) +128 : PR IN TE6 

/8J y z «« 

CURSOR I -4,lg 
P R IN T C 5,0 3 11 /Hx 

CURSOR 1-4 , f-7 : PRINTC5,03 " /■ 

B \ 1 ■ 

CURSOR 1-4,18 

PRINTC3,03" 

CURSOR I -4,19 

| P n IN Id? ' ei " 1 :PRI HTC5,03" 

I ; : PR INTC3,0 3 "| 

CURSOR 1-2,20 

PRINTC3,03" | " ; : PR INTC5,03 "I » 

; : PR INTC3,03 "| .. .q FT 

1 + 1 , 41,5 *■* 

RETURN 

•*** LAUF FIGUR *** 


3600 


'*** ARM NACH RECHTS *** 

CURSOR 1-2,16•PRINTC3,03* 

™ S ° R 1 ~ 2f 17:p RINTC3,03 ,L / 
CURSOR 1-3,18:PRINTC5,03" / 
p RINTE3,03"^" 

CURSOR 1-4,19 : PRINTE5,03" /» 


/" 
/ " 


4010 

4020 

4830 

4040 

4050 


USR(68) 

CURSOR I,14 :PRINTE6,03" /X 
CURSOR I,15 : PRINTE6,03" w 
CURSOR 1-1,16 : PR INTE5,03" 

CURSOR 1-1,17:PRINTE5,03" 

CURSOR 1-1,18:PRINTE3,03" 

CURSOR 1-1, 19 PR INTE3,03 " 

CURSOR 1-1,20.PRINTE3,03" / 

USR(71) 


II \ 


*14 


x ; 

x 4 


i. 
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63 " 

In 

>i| ti 

2t 


*060 

RETURN 

*070 

CURSOR 

*080 

CURSOR 

*390 

CURSOR 

II 

*100 

CURSOR 

H 

4 

CD 

CURSOR 

ii 

k 

*120 

CURSOR 

1! 

K 

00 

CD 

CURSOR 

II 

*140 

RETURN 

*150 

USR <68 > 


! *168 

CURSOR 


*178 

CURSOR 


*180 

CURSOR 

II 


*198 

CURSOR 

II 

N T C 6 

*288 

CURSOR 

ll 

x 218 

CURSOR 

II 

NTC6 

*220 

CURSOR 

H 


*230 

USR(71) 


*240 

RETURN 


II 


/II 
/ II 

I I 
I \ 

I \ 


-258 

-*260 

-270 

-280 

- 290 

■*300 
* 210 
*220 
*230 
* 3*0 
*250 

- 2 50 

- 2 “3 

- 223 
-250 


L ßi 


L 

4410 

■ \ 

-**20 


44 = 0 

H \ 

**48 


0 

1 1 

44^0 


44 ~0 

11 

1 1 

44 = 0 


x x r 0 

< I 

x f 0 0 


10 


X T 20 


'*## LAUFEN *** 

FOR P=14 TO 20 

CURSOR I -4 , P:PR IN T SPC <10):NE 
XT P 

IF F$="L" THEN 4400 

1=1 + 1: IF I >X2/2 THEN RETURN 

GOSUB 3970 

1=1 + 1: IF I >X2/2 THEN RETURN 
GOSUB 4078 

1=1 + 1 : IF I >X2/2 THEN RETURN 
GOSUB 4150 

1=1 + 1: IF I>X2/2 THEN RETURN 
GOSUB 4070 
GOTO 4310 

1=1-1: IF KX2/2-2 THEN RETURN 
GOSUB .3970 

1=1-1 : IF ICX2/2-2 THEN RETURN 
GOSUB 4070 

1=1-1: IF KX2/2-2 THEN RETURN 
GOSUB 4150 

1=1-1 : IF ICX2/2-2 THEN RETURN 
GOSUB 4070 
GOTO 4400 

'*** SPIELFELD GRUEN *** 

CURSOR 6,21 



PRINTE 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
INTC2, 
l'T" 
CURSOR 
IN T C 6 , 
RETURN 
'* $ $ $ $' $ 
*** 


1, 
20,21 
20,20 
20,19 

28.13 
20,17 
20,16 
28,15 

20.14 
20,13 


4530 PRINTC4,03 "'/////////A 


4540 

4558 

4560 

4570 

4586 

4590 

4608 

4610 

4620 

4638 


4649 

4650 
4660 

4670 

4630 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4788 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 


PRINTC4,03"| 

PRINTC2,03" 

PRINTC7,03" 

PRINTC2,03" 

PRINTC7,03" 

PR INTE2,0]" 

PRINTC7,03" 

PRINTC2,83" 

PRINTE7,03" 


PR 


63USING"##"; L ; :PRINTE6,0 

20,12 : PR INTE 3,03"|"; :PR 
0 3 "| 


^ ^ ^ ^ »J.» A» «L» dl di ^ ib jl? ^ tb tb dl di tL «L d* di 

T T T M* T* V T T T V V T ^ ^ ^ ^ * 

EINGELOCHT 


" ##t##: 

**# 

T $ = " 

'♦SPIELSTAND FESTSTELLEN * 

IF Al»="2" THEN 4750 
IF SCCPA THEN G1=G1-<PA-SC) 

IF SC>PA THEN G1=G1+<SC-PA) 
GOTO 4790 

IF <G=1> * <S(?<PA) THEN G1 = G1-CPA 
-SO 

IF <G=1)*<SC>PA)THEN G1=G1+(SC 
-PA) 

IF <G=2>*<SC<PA)THEN G2=G2-(PA 
-SC) 

IF <G = 2) * (SOPA) THEN G2 = G2 + <SC 
-PA) 

'* KOMMENTAR ZUM SPIELSTAND * 
IF SC = PA + 3 THEN T$="TR IPLE-BOG 
EV" ; GOTO 4880 

IF SC = PA +2 THEN T* = "DOUBLE-BOG 
EV" : GO TO 4880 

IF SC = PA +1 THEN T* ="BOGEV" :GOT 
0 4880 

IF SOPA + 3 THEN Tf="FLOP" : GOTO 
4880 

IF SC=PA-1 THEN T$="BIRDIE" 

IF SC = PA-2 THEN T$="DOUBLE-B IR 
DIE" 

IF SC = PA-3 THEN T*="TR IPLE-BIR 
DIE" 

IF SS=1 THEN 4960 
CURSOR 1-1,15 

POKE *5D,PEEK<*5D)+123:PRINT" 
uu 

RESET X2,41 

FOR P=41 TO 43 

SET 40,P,7 

FOR P1 = 1TO10 :NEXTP1 


i=o: 
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4940 RESET 48,P 
4958 NEXT P 
4960 FöR Pl=l JO 3 
4970 FÜR P=1 TO 7 
4980 IF SS=0 THEN 5000 
4998 SET LP,41,P:MUS IC M*:CURSOR 13 
,P+4:PRINTEP,]"** VOLLTREFFER 
M": GOTO 5058 
5000 SET 40, 43 , P 

5010 CURSOR 13,3 :PR INTEP,0]"* * EING 
ELOCHT **" 

5820 PR INT"H 


5030 PR IN T C P , 0 ] " 
*;" 


"; T 


5840 

5850 

5060 

5070 

5830 

5090 

5180 

5110 

5120 

5130 

5148 

5150 

5168 


MUS IC "-C4" 

NEXT P : NEXT PI 
SC = 0 : SS = 8 

'******** ZURUECK HAPRO ***** 
**** 


5178 

5180 

5190 

5280 

5210 

5220 

5230 

5248 

5250 

5260 

5270 

5280 

5298 

5380 


IF Al*="2" THEN 628 
GOTO 630 

M*****************#^*****^ 

*** 

SPIELSTAND AUSGABE 

'MM************************* 
* * * 

IF <G 1>99) + < G 2 > 9 9) THEN CONS 
OLE : CLS:CURSOR 8,6:PR INT"100 S 
chlaege ueber Limit: Versager 1 
C IAO" : GOTO 780 


IF A1$="2" THEN 5228 
CURSOR 29,0:PR INTE 7,2 TUS ING"## 
+ " ; Gl 
GOTO 5300 

CURSOR 5,0 :PRINTC7,23USING"## + 
" ; Gl 

CURSOR 37,8 :PRINTC7,2TU3ING"## 
+ " ; G2 

IF G=2 THEN 5280 

FOR P = 0 TO 12 : COLOR P ,8,8,7:NE 
XT P 

FOR P = 24 TO 39: COLOR P. 0,7,2:NE 
XT P 

GOTO 5308 

FOR P = 0 TO 12 : COLOR P,0,7,2:NE 
XT P 

FOR P = 24 T0 39:COLOR P,8,0,7:NE 

XT P 

RETURN 


5318 

5328 

5338 

5348 

5350 

5360 

5370 

5380 

5390 

5480 

5410 

5420 

5430 

5440 

5458 


" MMMMMMMMMMMMMM# 
**** 

FAHNE 

'***************************** 

**** 

CURSOR LP/2,19:PRINTC7,8T" |" 


CURSOR LP/2,18 
CURSOR LP/2,17 
FOR P=37 TO 39 
EX TP 
RETURN 


PRINTE7,0]" |" 
PRINTE7,0]" |>" 
COLORP,28,1,8:N 


******** LOCH 1 ************* 
***** 

LP=61:HX=8:HV=0:SA=30:SE=38:GA 
= 48 :GE = 72:PA = 3:WL = 2.4 
CURSOR 0,20 

PRINTE4,0]" P/Z/ty/Zf ?//////////////////,» ; 

PR INTE 6,0 ]"!»$" ; 

pr in t e 4 , 0 : u my,mmmwmwm ■■■■■/ " 


5460 

5478 

5488 

5490 

5500 


5518 

5528 

5530 

5548 

5558 

5568 

5578 

5580 


5590 

5600 

5610 

5620 

5630 

5648 

5650 

5668 


PRINTEI, 0]"Ü1" 

GOSUB 5310 
RETURN 

******** LOCH 2 ************ 
*** 

LP = 59 :HX = 0 :HV = 0 :SA = 42 :SE = 44 :GA 

= 48 : GE = 70:PA = 3:WA = 30:WE = 37:WL = 
2.4 

CURSOR 8,20 

mm'/Mmwm wsmmmm" 

GOSUB 5310 

FOR P = 15 TO 18 : COLOR P,28,1,0: 
NEXT 

FOR P = 21 TO 22 : COLOR P,20,6,0: 

NEXT 

RETURN 

'******** LOCH 3 ************ 
*** 

LP = 59 :HX = 32 :HV = 30:SA = 8:SE = 8:GA 

=48:GE=70:PA=4:WA=0:WE=0:WL=2 

89 

CURSOR 0,20 
PRINTE4,8] 

M'/////Mwnm - 

GOSUB 5318 


CURSOR 14.15 
CURSOR 14,16 
CURSOR 14,17 


PRINTE4,0]" 
PRINTE4,0]" 
PR INTE4,0]" 


5670 

5680 


CURSOR 14,18 :PRINTE4,0]" Mm%,Ä 
CURSOR 14,19 : PR INTE3,0] " || | 

| II 1 1 

RETURN 

"********* LOCH 4 ************ 
*** 
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7590 


: 700 
: 710 


7'20 


7 7 30 
7748 
7750 
-7 760 
7770 
7780 
7 790 
7300 
7310 


7320 


7 330 
7 340 

7350 

7 860 

7870 

7888 

7390 


7980 


7910 

7920 

7930 

7940 

7950 

7960 


S A = 28 : SE = 28 :GA=46 :LP = 57 :GE=68 : 
Pft = 5 : WL=1.99:HV = 38:HH=40 
CURSOR 0,20 
PR IN TC 4,0 3 

FOR P=l@ TO 14 : COLOR P,20,6,0: 
NEHT P 

CURSOR 18,14 : PR INT C 4,0 3" /"'S" 

CURSOR 18,15 : PR INTC4,8 3" //\ V 
CURSOR 18,16 :PRINTC4,03" \ \J /" 
CURSOR 18,17 : PRINTE 4,0 3" " 

CURSOR 18,13:PRINTC3,03" H " 
CURSOR 18,19 : PR INTC3,03 " || " 

GOSUB 5318 
RETURN 

i|f ** * * ** * * LOivH 5 * * ** ** * ** ** * 
*** 

Sft = 62 : SE = 72 : <3A = 40 :LP = 51 :GE=60 : 
Pft = 3 : WL=1.7: H Y = 0:HH = 8:Wft = 20:WE 
= 38 

CURSOR 0,20 

p r i n t c 4 ,0 3" mmmmwmmmmmm 

IBIIBII 

FOR P =18 TO 19: COLOR P,20,1,0: 
NEHT 

FOR P = 31 TO 36: COLOR P, 28,6,0: 
NEHT P 
GOSUB 5310 
RETURN 

I A A Ul £ ££££££££££££ 

********? L V V M D *TTT*T*^*?¥* 
*** 

S A = 3 0 : SE = 42:Gft = 48:LP = 57:GE = 66: 
PA = 4 :WL=1.3 : H Y = 22 :HH = 20 :WA = 68 : 
WE = 79 

CURSOR 0,20 

pr i n t c 4 ,0 3 ''mmmmmm'/z/z/mm 
mskmwam BHuiinit" 

CURSOR 10,11:PRINTC4,03" ,Ä" 
CURSOR 18,12=PRINTC4,03" illk" 
CURSOR 18,13 :PRINTC4,83" Jllk" 
CURSOR 10,14 :PRINTC4,03".Ä«ik 


7970 CURSOR 10,15:PRINTC4,03"iiilSk 

II 


7 980 CURSOR 10,16 : PR IN T L 3,0 3 "’ 


7998 CURSOR 10,17 
7000 CURSOR 18,13 
5018 CURSOR 10,19 


PR INTC3, @3" 
PR INTE3,@3" 
PRINTE 4,83" 


7028 COLOR 13,19,3,0:COLOR 12,19,3, 
0 

7030 FOR P=34 TO 36:C0L0R P,20,1,0: 
NEHT P 

6040 FOR P=15 TO 21:C0L0R P,20,6,0: 
NEHT P 

7050 GOSUB 5318 
7860 RETURN 


6070 '******** LOCH 7 * * ** ** ** *** * 
*** 

6880 LP = 59 : HH = 0:HY = 0:Sft = 42:SE = 44:GA 
= 48 :GE = 78:PA = 4:WA = 20:HE = 36:WL = 
1.9 

6090 CURSOR 0,20 
6100 P R IN T E 4,8 3 " 

mwmwmmi mimr 

6110 GOSUB 5310 

6120 FOR P =10 TO 18 : COLOR P, 20,1,0: 
NEHT 

6130 FOR P=21 TO 22:COLOR P,28,6,0: 
NEHT 

6148 RETURN 

6150 ' *** * ** * * * LOCH 8 ************ 
*** 

6160 SA = 62 : SE = 72 :GA = 40:LP = 51:GE = 6@: 
PA = 3 :WL = 2 : H Y = 26:HH = 28:Wft=16:HE 
= 26 

6170 CURSOR 8,20 
6180 PRINTE4,03 " 

mumm 

6190 CURSOR 12,14 :PRINTE4,03" " 

6208 CURSOR 12,15 : PRINTC4,03" / f\ V 
6218 CURSOR 12,16 : PR INTC4,03" \ V//" 
6228 CURSOR 12,17 : PR IN TC4,0 3 " W' " 
6230 CURSOR 12,18 : PR IN T C 3,8 3 " || " 

6240 CURSOR 12,19 : PR INTC3,03 " II" 
6250 FOR P = 8 TO 13: COLOR P,20,1,8 : N 
EHT 

6260 FOR P=31 TO 36:C0L0R P,20,6,8: 
NEHT P 

6278 GOSUB 5318 
6288 RETURN 

6290 "********* LOCH 9 ************ 

*** 

6308 SA = 8 :SE = 0:GA = 34:LP = 45:GE = 58:PA 
= 3 : WL=.6:HY = 0:HH = 0:WA = 58:WE = 79 
6310 CURSOR 8,20 
6320 PR IN TC4,03 " 

■■■B ■UH111111111" 

6330 FOR P = 28 TO 36 : COLORP,20,1,0:N 
EHT 

6348 GOSUB 5318 
6350 RETURN 

6360 '********* LOCH 10 *********** 

*** 

6370 SA = 32 :SE = 42 : GA = 48:LP = 5 7:GE = 66: 
PA = 4 : WL = 1.3:HY = 22:HH = 22:WA=12: 
WE = 22 

6388 CURSOR 0,20 
6398 PR IN T C 4,0 3 " 

»^hii mnammmmm" 

6400 CURSOR 11, 11 :PRINTC4,03" Jk" 
6410 CURSOR 11,12 :PRINTC4,03" illk" 
6420 CURSOR 11,13 : PR INTC4,03" Jiik" 
6438 CURSOR 11,14 : PR INTE4,03"ilttik 

II 
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6448 CURSOR ll . 15 : p r i nT c4.01" 

I! 

6458 CURSOR 11, 16 : PR IN T E3,0 3 || ^ 

<1 

6460 CURSOR 11, 17 :PRINTE3,03" || " 
6470 CURSOR 11, 18 : PR INTE3,03 " || " 

6480 CURSOR 11, 19 : PR IN T E4,63" v || ^ 

II 

6490 COLOR 13,19,3,0:COLOR 14,19,3, 
0 

6500 FOR P = 6 TO ll:COLOR P,20.1,0:N 
EXT P 

6510 FOR P=16 TO 21:C0L0R P,20.6,0: 
HEXT P 

6520 GOSUB 5310 
6530 RETURN 

6540 ' ******* * LOCH 11 *********** 
*** 

6550 LP = 59 : HX = 36 : HY = 30:SA=18:SE = 26: 
GA = 48 :GE=70:PA = 3:WA = 0:WE = 0:WL = 
3.2 

6560 CURSOR 0,20 
6570 PR ™ } 14 ' 0 ] 

6580 GOSUB 5310 

6590 CURSOR 17,15:PR INTE4,03" jk" 
6600 CURSOR 17,16 : PRINTE4,03" MMk " 
6610 CURSOR 17,17 : PR INTC4,0 3" AWm 4 
k" 

6620 CURSOR 17,18 : PRINTE4,03" Jiy 
k" 

6630 CURSOR 17,19 : PR INTE3,03 " || | 

I " 

6640 FOR P=9 TO 13:C0L0R P,20,6,0:N 
EXT P 

6650 RETURN 

6660 '******** LOCH 12 *********** 
*** 

6670 LP=51:HX=0:HV=0:SA=18:SE=36:GA 
= 40 :GE = 60 :PA = 4 : Hft = 64 : WE = 79:WL = 

. 95 

6680 CURSOR 0,20 
6690 PR IN T E 4,0 3" 

6700 FOR P=9 TO 18:C0L0R P,20,6,0:N 
EXT P 

6710 FOR P=32 TO 36:C0L0R P,20,1,0: 
NEXT P 

6720 GOSUB 5310 
6730 RETURN 

6740 '******** LOCH 13 *********** 
*** 

6750 LP=59:HX=18:HV=28:SA=0:SE=0:GA 
=48:GE=68:PA=4:WA=22:WE=34:WL= 
2.1 

6760 CURSOR 0,20 

6770 P R IN T E 4,0 3 "MMMMÄll» 


6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 


CURSOR 7,14 
CURSOR 7,15 
CURSOR 7,16 
CURSOR 7,17 
CURSOR 7,18 
CURSOR 7,19 


6890 

6980 

6918 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7058 

7060 


PRINTE 4,0 3" /""X" 

PRINTE4,03" /AV 
: PR INTE 4, @3" \\Jf" 
:PRINTE 4,0 3" 

:PR INTE 3,03" H " 

:PR INTE 3,0 3" jg " 
FOR P=ll TO 17:COLOR P,20.1,0: 
NEXT P 
GOSUB 5310 
RETURN 

'******** LOCH 14 *********** 
*** 

LP = 59:HX = 36:HY = 25:Si=l = 0:SE = 0:GA 
=48:GE=68:PA=3:WA=0:WE=0:WL=2. 
51 

CURSOR 0,20 
P R IN T E 4,0 3 " 

mm/mmm wummmmm" 

FOR P = 0 TO 39 'CURSOR P,13:PRIN 
T E 5,0 3" :NEX T 
CURSOR 17,13 : PR INTE3,03 " l j 
FOR P=13 TO 19:CURSOR 18,P:PRI 
N T E 3,0 3"X":CURSOR 2,P:NEXT 
GOSUB 5310 
RETURN 

' ******** LOCH 15 *********** 
*** 

LP=49:HX=60:HY=25:SA=0:SE=0:GA 
=38:GE=58:PA=2:WH=0:WE=0:WL=3 
CURSOR 0,20 
PR IN T E 4,0 3 

■um wmumv////////////Mmw' 

CURSOR 30,13 : PRINTE2,03" r 
CURSOR 30,14 : PR INTE2,03 " yin^ 

ll 

CURSOR 30,15 :PRINTE2,03 

k" 

CURSOR 30,16:PRINTE0,53" CLUB 

II 

CURSOR 30,17 : PR INTE 5,0 3 "■Ü11+ 

■ " 

CURSOR 38,13 : PR INTE5,03 "■■1114- 

I" 

CURSOR 30,19 :PRINTE5,03"| 



7070 GOSUB 5310 
7080 RETURN 

7090 '******** LOCH 16 *********** 
*** 

7100 LP=49:HX=25:HY=29:Sft=0:SE=0:GA 
= 38 : GE = 60 : PA = 3 : WH = 62 : WE = 79 : WL = 
1.95 

7110 CURSOR 0,20 

7128 printe 4 , 83 " mmmmm^y//////////////, 

7130 CURSOR 33,11 :PRINTE4,03" Jk" 
7140 CURSOR 33,12 :PRINTE4,03" MMk" 
7150 CURSOR 33,13 :PRINTE4,03" Jiik" 
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1 ✓'"'N " 

"160 

//\ \" 


: \ v/r 

I 7170 



H " 

I 7180 

II " 


23,1,0: 

I 7190 


7200 


’ 7 210 


''220 

If ***** 



^230 

iE = 0 :GA 

^240 

i WL=2. 

"250 


^268 

p '////AM 



"270 

iS PR IN 



^280 

’ L J 11 


P :PRI 

"290 

KT 

^380 


7310 

****** 

7320 

E=0:GA 


WL = 3 

7330 


"340 

\'/////////, 



7358 

1" 


y*a*k 

7360 


7370 

4im 




CLUB 



CURSOR 33,14 :PRINTC4,03",«itk 

II 

CURSOR 33,15:PRINTC4,03"Jlilik 

tl 

CURSOR 33,16 : PR INTC3,0 3 || 

II 

CURSOR 33,17 : PR INTC3,03 " II" 
CURSOR 33,13 :PRINTC3,03" || " 

CURSOR 33,19 :PRINTC4,03" il 

COLOR 36,19,3,0:COLOR 35,19,3, 
0 

CURSOR 11,15 :PRINTE4,03" Jk" 
CURSOR 11, 16 : PR INTE 4,03" J»k" 
CURSOR 11,17:PR INTE 4,0 3" ^ükJ 
k" 

CURSOR 11,13 :PRINTE4,03" JitkJ 
k" 

CURSOR 11, 19 :PRINTE3,03" || | 

I " 

FOR P=31 TO 34:COLOR P,20,1,0: 
NEXT 

GOSUB 5310 
RETURN 

'* ******** LOCH 17 *********** 
*** 

Sft = 20:SE = 32:GA = 46:LP = 57:GE = 68 : 
PA = 4:WL = 1.6;HV = 28:HX=24 :WA = 0 :W 
E = 0 

CURSOR 0,20 

pr i n t e 4 ,0 3 ,i v//////////////////^mmmy/A 

mmmmmi wmawumm" 

FOR p=10 TO 16 : COLOR P,20,6,0 : 
NEXT P 

CURSOR 10,14 :PRINTE4,03" /'"’n " 
CURSOR 10,15:PRINTC4,03" If\\" 



****** 

L=0 :6ft 
’S : WL = 




. A\." 
jl mk ■■ 

Inik" 



Segelflug 


Programmname: SEGELFLUGLANDUNG 
Programmlänge: 85H1 Bytes 
Programmiersprache: BASIC 
Rechner: MZ-800 

Bitte anschnallen und das Rauchen 
einstellen, wir setzen zur Landung 

an ! 

Dieser Flugsimulator simuliert ein 
Begelflugzeug bei einem Landean¬ 
flug. Es gibt zahlreiche BASIC- 
r lugsimulatoren, die teilweise mehr 
Möglichkeiten bieten (nicht nur den 
_andeanflug), ihre Simulation ist 
aber durch die beschränkte Ge¬ 
schwindigkeit des BASIC nicht be¬ 
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7330 CURSOR 10,16 : PR INTE4,03" \ \J /" 
7390 CURSOR 10,17 : PR INTC4 , @3 " " 

7400 CURSOR 10,18 :PRINTC3,03" || " 
7410 CURSOR 10,19 :PR INTC3,03" |j " 
7420 GOSUB 5310 
7438 RETURN 

7440 '********* LOCH 18 *********** 
*** 

7450 SA= 12 :SE = 28 :G(=i=48 :LP = 59 :ÖE = 70 : 
PA = 3 :WL = 2.4:HY = 0:HX = 0:WA = 30:WE 
= 40 

7460 CURSOR 0,20 

7470 printe4,03" y//////////Mmwmmmmmm 

wmin mmmmm“ 

7480 FOR P=6 TO 14:C0L0R P,20,6,0:N 
EXT 

7490 FOR P=15 TO 19:C0L0R P,20,1,0: 
NEXT 

7500 GOSUB 5310 
7510 RETURN 

7520 '***************************** 

** 

7530 '' FEHLER 

7540 '***************************** 
** 

7550 IF < ERN=3 >*(ERL>1120)*<ERLC1270 
) RESUME 530 

7568 IF<ERN=3)*<ERL>2080> RESUME 37 
0 

7570 CLS .PRINT:PRINT:PRINT 
7580 PRINTE7,13"FEHLER "LERN;" IN 2 
EILE " ; ERL ; " -* RUECKSPRUNG ! " 
7590 FOR P=1 TO 2000:NEXT P 
7600 RESUME 270 


sonders realistisch. Daher wurden 
bei diesem Programm einige Ein¬ 
schränkungen vorgenommen. So sind 
bei dieser Simulation keine Kursab¬ 
weichungen möglich und es werden 
nur die Instrumente des Segel¬ 
flugzeuges gezeigt. Durch diese 
Einschränkungen wurde es möglich, 
eine relativ realistische Simula¬ 
tion in BASIC zu erstellen. 

Der Bildschirm zeigt praktisch alle 
Instrumente, die für eine Landung 
nötig sind. Angezeigt wird die 
Höhe, die Eigengeschwindigkeit, die 
Sink-/Steiggeschwindigkeit, die 
Fluglage, die Stellung der Lande- 


35 
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Igkeit. 

haben 

verhal- 


fenn das 
maximal 
»indig- 
fs be¬ 


stärken 
r iel an 
haben, 
e des 
euern, 
cnmen. 
Sinken 
wieder 
1ächen 
e Lan- 
£ tel 11 



>thupp 


1606 

l? 

28 ,22 


:) 

A $ 3 
»EXT 
<-$) : 

lft2: 

> *H*2 
t=0 :F 


= 1-5 


"30/800 


£35 

£40 

558 

588 

510 

528 

: 30 
540 
550 
560 
570 
530 
590 
£80 
£10 
£20 
£30 
£40 
£50 

£60 


£70 

£80 

£90 

"00 

"10 

“'20 

”30 


7 40 
"50 
7 60 
770 
788 

798 

300 

310 

820 

330 

340 

358 

860 

870 

338 

890 

980 

910 

920 

930 


HEXT 

FOR I =8T09:IFCN=WN<13 THENK =I 
NEXT 

13= <T 1-03/68 rO=TI : TI = TI+35 

FL=FL/108+FC*4 : I FFL<1E-33THEN IF 

FL>0THENFL=lE-38 

V=V*<1-.01*FL-.04*K3 : IFV>88THEN 

S= < V-80 >/80 

IFVC0THENV=0 

IFVO80THENS=<V-80>/15 

S = -<S*S+.73 *<1-FL*.01+K*.253 

E=E-B*<V/3.63 

H=H+D*S 

L = -< H *V >/<S*3.6) 

IFL=0THENL=.001 
A=(L-E3*SIN<ATN<H/L>) 
F=SIN<FL*ir/180> 

IFEC-150THEN5000 

01 = AZ : 02 = 32:GOSUB40000 

1=241 

J=124+K*2 : AZ=J:01 = J:02=I :G0SUB4 
0000 

01 = BZ : 02 = 32:GOSUB40080: 1=216 : Kl 

= INT <ABS <S3/2> : K2=ABS <S/2 3 :IFK2 

>K1+.5THENI=194 

K1=-K1*SGN<S3 : IFK1<-3THEN710 

IFK1>4 THEN728 

J=527+Kl*40 : B2 = J 

01 = J :02=I :GÖSUB40000:GOTO730 

B2 = 207 :01 = B2 : 02 = 204 :GOSUB40000: 

GOTO730 

BZ = 727 :01 = BZ :O2 = 204:GOSUB40000 
01 = DZ : 02 = 32 :GOSUB40000: 1 = 194 : IF 
HC0THEN5000 

K1=INT(H/103 + .5:K 2 = H/10 

IFK2>K1THEN 1 = 216 

J = 753-INT<K1> *40:B2 = J 

01 = J : 02= I : GOSUB40080 

GO3UB60000:01=EZ:02=32:GOSUB400 

00 :Kl=INT<V/2.53—22 

IFVC55THEN838 

IFVM30THEN840 

J = 8 4 4 + K1 : E2 = J : 1 = 192 

01 = J:02=I :GÖSUB48000:G0T0850 

EZ=844:0i=EZ:02=204:GOSÜB40000: 

GOTO350 

EZ=874:O1=EZ:O2=204:GOSUB40080 

01 = FZ : 02 = 32 :GOSUB40000: 1=61 : IFF 

>1THENI=204 

IFFC-.27THEN 1 = 204 

IFF<-.27THENF=-.27 

IFF=1THENF=0 

GOTO920 

J = 40+Kl*40:FZ = J :01 = J:02 = H:GOSUB 
40000 

J1=-3GNCF*10-103 
K1 = - INT<F*10-11) 

J = 53+Kl*40:FZ = J:01 = J:02=I : GOSUB 


40000 

940 A = A + 56: IFA>110THENA=110 
950 01 = GZ : 02 = 32:GOSUE40080 
960 IFA<0THENA=0 

978 K2=INT<A3 : K3= INT < A/8 > :K2 = K2-K3* 
8 

988 I = ZN <K2) : J = 744-K3*40:GZ = J 
990 01 = J : 02= I :GO3UB40000:EE=INT<E/2 
5)+5 : IFEEC41THEN IFEE> = 8THENFR <E 
E 3 =H 


999 TEHP06 : IFK9=1THENMUSIC"-C0 + C-C" 

: K9 = 0 

1800 GOTO 310 
5008 GOSUB50800 

5081 CURSORS.,24 :PRINT"Bitte CR drlic 
ken !"; 

5002 GE TA $ : IFA*OCHR* < 13 3 THEN5002 
5810 CLS :CURSOR10y3:PR INT"F1ugproto 
k o 11 " 

5012 CURSORS,21:PR INT"- 


5014 F0RM=1TO40 

5816 IFFRO13O0THEN5090 

5830 K 2 = IN T < F R < M 3 3 

5840 K3 =IN T< FR < M 3/8 3 

5050 K2 = K2-K3*8 

5860 N = ZN <K23 

5078 J = 840-M-K3 *40 

5080 01=J:02=N:GOSUB40000 

5090 NEXTM 

5099 CURSORS,24 :PRINT"Bitte CR drüc 
ken ! " 

5100 GE TA $ : IFAfOCHRf < 13 3 THEN5100 
5200 RUN 

9999 ENB 


10000 

PRINT "Bl 


II 

10010 

PRINT" 

| r 

' * 

1 / 

”■3 r — 3 1 

1 n 




f 

10020 

PRINT" 

110 12 

3 4 5 6 7 8 9 


1 1 rn 

1 1 ml | 

1 " 

10030 

PRINT" 

f 1 

1 1 

i i i| 

! II 

10040 

I 1 

PRINT" 

M 1 ! 

I 


i 




-- J I 140 | | 

| “ 

10050 

PRINT" 

1 r- 

i i 1 

I II 

10060 

PRINT" 

1 1 1 
1 1 m/s 1 




1 12011 

II 

10080 

PRINT" 

1 1 1 

1 1 \ 

! II 

10090 

PRINT" 

1 f 1 

11+4 | 




| 1001 | 

II 

10100 

PRINT" 

/ \ 

1 1 1 

1 1 1 

/ \ 

II 

10110 

PRINT" 

11+2 | 

/ \ / 


\ 

\ 

1 80|| 

II 

10120 

PRINT" 

1 1 1 

1 1 



=;ne Publikation von CHIP SPECIAL 


37 



































Flugsimulator 




60 

I I 
i I " 
-2 I \ 




10160 PRINT" 

o o o 

10170 PRINT" 

1 40||" 

^ 1 \ / o o o 

1 ||" 

11-4 | - 

10180 PRINT" 

1 20||" 

1 1 1 

10190 PRINT" | 

1 II" 

11-6 1 

10200 PRINT" | 

i 0||" 

^ J 


10210 PRINT" | 

* U *^ ■ 1 

- - 

10220 PRINT" | 

-^ 1 " 

i 

10230 PRINT" j 
0 110 120 
10240 PRINT" | 

i 1 " 

1 30 70 30 3 0 10 

km/h||" 

10250 PRINT" 

- J 1 " 

--■* ipiti 


20130 

20140 

20150 

28160 

28170 


20130 

20190 


20200 


CURSOR 12, 10 -PRINT" S teigen ode 
r Sinken des" 

CURS 0 R 12,11 :PRINT"Flugzeuges 

FART : f: !SUB3000 Q •' ö 0 SUBi0000 ~ 
F0RI = 1T019 PRINT "HHB!" ;SPCi'R t n 
: NEXT:CURS0R3,15 ' SPC<35) 

PRIf ”" Der Fahr t rnesser 9 

lbt die" y 

Pluggeschwind i 

300^ an - : GÖSUB30000 : GOSUB10 

F NFvr 1 r T ?o? :PRINT " HBB "' Sp C<2 0 > 
„ N -'\ T ■ FoR I-1T04 : PRINT "BBB 11 ; SP 
C<35):NEXT ' 

PRINT" 1S1BDHDHBB Dieses Instru 

nie nt gibt die“ ! 

"" 


20210 

20220 


20230 


20000 

20010 


20020 

20030 


50040 


50050 


20060 

20065 


20070 


20075 


20030 

20090 


50100 


20110 


20120 


'^^ 1 I c> 5 00:NEXTI:REr ™» 

***# Anleitung 

< 3 ? S PR^?«: F 0 R,= 1 T 04 :Ct;RSC ‘R 2 '' 
I PRINTSPC<14) •• NEXT : FOP I - l ta 

19 d PRINT"BBB";SPC(35) NEX^ 

CURSORS,S.PRINT" Dieses Ins 

tfument gibt die" 

PRINT"BBB Stellung der Land 
eklappen an.HOB" 

PRINT " BMW r, ; „ Q . 

Landeklappen " 6 * t * uer " r 'e «»r 
^cberst^Reihe"°^ 9 * 

dep rrr:r 6 

7 3 9 0fl" 5 6 

PRINT- 8 BB 0 - Landeklappen 
eingefahren" en 

hn™.!"“® ‘ - -M, ausgeta 

PRINT-SBB 9 ~ Mollständig a 

usgefahren": 0 OSUB30 0 00 

B“ S rpÜ 00 5 0 :F<>RI “ 1 '-O^PRINT»BH 

PSORq'" 3 J'; NE><T: P 0RI =-' t 019:CU 

F0RI-1TU 4 :PR INT »BBB";SPC(35): 

CURS0R12,6 ;PRINT"Dies ist d 
1 orneter . 11 

CURS0R12,9:PR INT"Es zeigt rtas 
jeweilige" ^ 


20240 

20250 

20260 

20270 

20230 

20290 

20300 


20305 

20310 


20315 

20320 


20338 

20340 


20350 

20360 


20370 


PRiNr'BSB Höhe über dem Bode 
GOSUB30000:GOSUB10000 
NExJ = F 1 ^ro RlNT,,BBB ^ SPC<3 5): 

NTSPC^ rll' 6 :CURSOR0 p 1 ;p RI 

NToP^ce) ; TABUS) ;SPC( 20 ) :NEXT 

" %V 07:PRINT "e«B"lSPC<35? 

NEXT .CURSORS,2:PR INT" Der Fl 

u 9l-ä9eanzeiger • ** 

PRINT-BBBB Ein Kreuz zeigt a 
n * ob die Nase“ 

PRINT-BHB des Flugzeuges unt 
erhalb oder“ n * 

ob#rh * ,b — 

?r2 S mit 1 " ,12:PRINT ' , ®"t»u.rt „ 

e“e 9 » 13 PRINT " der 
CURS0 R 19,H:p RI NT » der Tastatu 

PRINT-BBB 2 X C V B N 

PRINT 

PRINT ;'BB« Nase nach untenl N 
«*se nach oben" 

PRINT 
PRINT"BBS 

ht": S OSUB3 000 0: 3O3UBle “” reC 
NP W T = r Jo i * PR ^N r "BBB"j SPC (35) : 

NEXT:F0RI=1T08:PRINT"BBH" •SPC 
<15);TRB<31>;SPC ( 7):n™ 

NrvJ'- 1 ,^ 8:PRINT "“« , 'lSPC<3 5) : 

NEXT:i„URS0R4,4 .PRINT" Dieses I 

nstrurnent zeigt den“ 

PR INT"BBB voraussichtlichen A 
utsetzpunkt an.“ 

CURSORS, 9 :PRINT"Der Landebahn 

beginn" :PRiNT"BBBliegt zwisch 

en den" iwiaun 

InJ-hhSP ® 21 " 61 waa 9rechten" :PR 
NT BBBL in ien . " : GOSUB 30000 öo 
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I« n a d e 

:euges 
1080 
!PC <35) 

sser g 

hwind i 
CSUB18 

FCC 29) 
ES" SP 

Instru 

■ Bode 


C 35) : 
Li : PR I 
[ NEXT 
: 35) : 
»er Fl 

i igt a 

?s unt 

■Hör i z 

le r t w 

/■.erst 

statu 

i N 


en 1 N 


agrec 

€ 

35) : 
f; SPC 

(35) : 
ses I 

" en A 

boahn 
• isoh 

■ : PR 

13 : GO 


: "00/800 


SUB10000 

13330 FOR I = 1T04 :PRINT" BBB " : SPC(21) ; 

TAB<32);SPC <6) :NEXT :F0RI = 1T01 
9 :PRINT"HBH";SPCC35) :NEXT 
13390 CURS0R9,7:PRINT"Hier wird die 
Entfernung zum 

13400 CURS0R9,8:PR INT"Landbahntaegin 
n angezeigt." 

13500 GOSUB30000:GOSUB10000 
13510 CURS0R11,5:PRINT" 

n 

13520 CURS0R11,6:PRINT" Nun geht es 
los ! " 

13530 CURS0R11,7:PRINT" 

li 

13540 GOSUB30000:RETURN 
:3000 CURSORS,24:PRINT"Bitte CR drü 


51015 CURS0R4,11:PRINTABSCL);" m hi 
nter der" 

51028 CURSORS,12 : PR INT"Landebahn !! 

ii 

51030 RETURN 

60000 CURS0R26,3:PR INT" 

60004 CURS0R26,3 :PRINTINTCE) 

60005 00 = 00 + 1: IFQO = 5THENQO = 0 

60006 ONOOGÖTO60100,60200,60300,604 
00 

60010 CURS0R19,13:PRINT" . 1 

ii 

60011 CURS0R13,15:PR INT"« 0 0 B 0 0 

• " 

60017 RETURN 

60100 CURS0R19,13 : PR INT" . fl 


cken ! "; 

: 3010 GE TA $ : IFAtOCHRf (13) THEN30010 

:0020 CURSORS,24:PR INT"- 

-" ; : RETURN 

-3800 02=01:IFO2=204THENK9=1 
-3805 AH=CSRH:AV=CSRV 
-0010 CURSOROZ-INT <02/40)*40, INTC0Z 
/40) 

-0020 PR IN TCHR $ < 02) ; 

-0030 CURS0RAH,AV 

-3031 IFKQ=1THENRETURN 

-0032 GE TCO $ : IFC0$O" " THENBEEP : KQ=1 

-0040 RETURN 

"0000 CLS 

53010 IFSC-1.5THEN50100 
"3020 IFEC-150THEN51000 
50025 IFE>0THEN50100 
53030 IFV>90THEN50100 
50040 CURS0R13,12:PRINT"Glatt gelan 
d e t" 

50050 CURSORS,24:PRINT"Bitte CR drü 
cken!"; 

5 8060 GE TA* : IFA SOCHR* < 13) THEN50060 
50070 CLS : GOTO50120 

50100 CURS0R13,7:PRINT"Crash !!!!!! 

i i ii 

50110 MUSIC-C-B-C-D-C-D-C-B-C-D-C- 
D-C-D-C-B-C-D-C-D-C-D-C" 

50120 CURSORS,10:PRINT"Geschwindigk 
e i t : " ;V;" km/h" 

5 0130 CURSORS,12:PR INT"Sinken : 

";ABS(S);" m/s" 

50140 CURSORS,14:PR INT"Entfernung z 
um" 

5 0150 CURSORS,15:PR INT"Landebahnbeg 
inn:";ABS CE) ;" m" 

50160 RETURN 

51000 CURS0R12,7:PRINT"Nicht geland 
et ! " 

51010 CURSORS,10:PR INT"Voraussicht 1 
icher Landepunkt" 


60101 CURS0R13,15 :PRINT"0 
0 " 

60107 RETURN 

60200 CURSOR19,13:PRINT" 

ii 

60201 CURS0R18,15:PRINT"0 

O " 

60217 RETURN 

60300 CURSOR 19,13:PR INT" 

ii 

60301 CURS0R18,15:PRINT"0 

0" 

60317 RETURN 

60400 CURS0R19,13:PR INT" 

II 

60481 CURS0R18,15 : PRINT n O 
0 " 

68417 RETURN 


«OSO« 
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* Der Sharp User-Club 


* Der Wettbewerb "Sharp User-Club des 

* Jahres 1987" steht vor der Tür! 

* 

* 

* User-Club-Mitglieder sollten sich jetzt 

* schon darauf einstellen. lassen Sie sich 

* die Einsendebedingungen zusenden von: 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Redaktion CHIP-SPECIAL 

Vogel-Verlag 

Redaktionsservice 

Stichwort: "Sharp User-Club 87" 

Schillerstr. 23 a 

8000 München 2 


*******************************************$ 


_ ne Publikation von CHIP SPECIAL 


39 




***************************************** 






















Expertensystem 


Kein tierischer Emst 


Programmname: 
Programmlänge: 
Programmiersprache: 
Rechner: 


DOKTOR 
10344 Bytes 
BASIC 
MZ-800 


Für ernsthafte Anwendungen weder 
gedacht noch geeignet ist das Ex- 
pertensystera DOKTOR. 

Programme solcher Art wurden bis¬ 
lang hauptsächlich auf Großrechner¬ 
systemen verwirklicht. Sie basieren 
im allgemeinen auf Programmiertech- 
niken der sogenannten "künstlichen 
Intelligenz”. Das generelle Prinzip 
ist die quasi "menschliche" Aufbe¬ 
reitung von Daten. 

Ein wesentliches Merkmal von Exper¬ 
tensystemen ist der Dialog des 
Programmes mit dem Anwender. Wich- 


18 REM COMPUTER-ARZT 
20 REM FUER CHIP SPECIAL 
30 REM VON THIES B. SCHUPP 
40 REM 

50 REM *#* INITIALISIERUNG ##* 

60 IN I T"CRT:M3" : PAL0,15:PALI,15 
70 FORI=0TO19STEP2:BOXE0+I#2,0+I,63 
9-1*2,199-1:NEXTI 

80 FOR I = 1T018STEP4:PAINT50, I :NEXT I : 
PAL0,0 

90 SYMB0L58,38,"Doktor",2,1 
100 SVMB0L88,50,"Doktor",4,2 
110 SVMBOL110,70,"Doktor",6,3 
120 SVMBOL140,100,"Doktor",8,5 
138 SVMB0L115,168,"Bitte einen Mome 
nt Geduld",2,2 
140 FOR I = 390TO590STEP2 
150 LINEC13490,30,I,60,498,90 
160 LINEC01490,30,1+1,60,490,90 
170 NEXTI 

188 L INEC 13490,30,390,60,490,90,590 
,60,490,38 
460 A5 = 91 : AK = 38 

470 DIM SY$ <AS>,KR* <AK>,KM(AK),KS(A 
K,6) ,SE(AS>,D * < AK) 

480 AM = AK:SZ=1 

490 FORI=1T0AS:READ SY*<I):NEXTI 
500 FOR I = 1T0AK : READ KR * (. I > : NEX T I 
510 FOR1 = 1 TOAK:FORJ = 0TO6:READKS( I , J 
>:IFKS<I,J)=0THENJ=7 
520 NEXTJ:NEXTI 
530 FORI«=1TOAK :KM< I)=l :NEXTI 
540 CLS:BOX0,8,639,199:B0X1,0,638,1 
99 


tig dabei ist die Fähigkeit auch 
aus unvollständigen Daten wenig¬ 
stens eine Wahrscheinlichkeits¬ 
aussage machen zu können. 

Das Programm DOKTOR stellt Ihnen 
Fragen bezüglich der Symptome Ihrer 
Krankheit. Obwohl das Programm 
insgesamt über 100 Symptome kennt, 
müssen normalerweise nur zirka 30 
Fragen beantwortet werden, denn 
zahlreiche Symptome schließen be¬ 
stimmte Krankheiten aus, deren 
Symptome ja nicht mehr abgefragt 
werden müssen. 

Abschließend kann man sagen, daß 
DOKTOR ein interessates Programm 
ist, um die Grundstruktur eines 
Expertensystemes zu studieren. 

Thies B. Schupp 


541 CURS0R2,2:PRINT"ACHTUNG: Dieses 

Programm soll keinesfalls eine 
n Arzt ersetzen ! 

542 CURS0R11,4:PR INT"Wenden Sie sic 
h bitte immer an einen Arzt, we 
nn Sie irgendwelche" 

543 CURSOR11,5:PR INT"Beschwerden ha 
ben. Zweck des Programms ist es 
, die Programmier-" 

544 CURS0R11,6:PRINT"technik der 'i 
nte 1 1 igenten' Abfrage zu erlern 
en. " 

545 CURS0R11,7:PRINT"Das Programm w 
urde sehr sorgfältig erstellt u 
nd getestet, trotz-" 

546 CURS0R11,8:PRINT"dem sind Fehld 
iagnosen nicht auszuschließen, 
da ja nur sehr weni-" 

547 CURS0R11,9:PRINT"ge Kriterien ü 
berprüft werden können." 

550 CURS0R1,15:PRINT"Bitte beantwor 
ten Sie nun alle meine Fragen n 
ach den Symptomen Ihrer Krankhe 
it" 

560 CURSORS,18 :PRINT"Falls das jewe 
ilige Symptom vorliegt drucken 
Sie die 'J'-Taste," 

570 CURSORS,20:PRINT"wenn nicht, da 
nn die 'N ' - Taste." 

580 SYMB0L62,184,"Programmstart mit 
der 'CR '-Taste",2,1 

598 GETA* : IFAfOCHR* < 13) THEN590 

608 FOR 1 = 1T023 

610 CURS0R1,I:PRINTSPC(78); 
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8 


:ie NEXT I 

--8 CURS0R19,15:PRINT"Anzahl der no 
ch möglichen Krankhe i ten:";AM 
::0 FOR I=2T0275STEP2 
: 8 8 L INE2,60 , I , 198 
:"8 L INEC832,6©, 1+1,198 
= 58 LINE637,60,638-1 ,198 
:-0 L IHEC0D637,60,637-1,198 
"88 IF I >85 THEN760 
"28 LINE2,60 , I, 1 
"50 LINEC032,60, 1+1, 1 
'-8 LINE637,68,638-1 ,1 
7 8 LINEC03637,60,637-1,1 
“58 NEKTI 

1800 REM **« HAUPTPROGRAMM «** 

1810 F0RSZ = 1T0AS :F = 0 
- 8 20 FOR 1 = 1 TOAK : IFKM < I>=0THEN1050 
.8 30 FORJ = 0TO6 : IFABS<KS< I ,J)>=SZTHE 
NF=1 : I = AK :J = 6 
.840 NEXTJ 
:050 NEXTI 
1860 IFF=0THEH1130 
-870 GOSUB5010 
-880 FOR1=1TOAK 
.890 IFKMU)=0THEN1120 
1180 FORJ = 0TO6 : IF CABS <KS < I , J> >=SZ) * 
(SGN<KS< I ,J> >=-SGN<SE<SZ>)> THE 
N K M < I>=0:A M = A M-1:J = 6:CURSORS?, 
15:PR INTAM;" " 

1110 NEXTJ 
1120 NEXTI 
1130 NEXTSZ 

1140 REM *#* ABFRAGE DER HAHRSCHEIN 
LICHEN 8 VMP TOME *** 

.150 FORI = 1TOAK : IFKMCI)=0THEN1180 
1160 FORJ = 0T06 : IF<KS<I,J>>100)THENI 
F <SE <ABS <KS< I ,J)>-100)=0)THENS 
Z=ABS < KS < I , J.) ) -100 : GOSUB5010 
1170 NEXTJ 
1130 NEXTI 

1190 REM *** AUSWERTUNG #*# 

1280 CLS:B0X8,8,639,199:BOX1,0,638, 
199 

1210 SVMB0L22,16,"Diagnose : ",3,2 
1400 K=0 

1410 FOR I = 1 TOAK :SP = 0 :HK = @ : IFKMU>=0 
THEN1500 

1420 F = 8 : FORJ = 0 T06 : IFKSC I ,J>>=180TH 
E N F =1 : J = 6 

1430 NEXTJ:Df(K)=KRf<I) :K = K + 1:IFF = 8 
THEN1500 
1440 FORJ=0TO6 

1445 IFKS(I,J>>100THENIFSGN<SE<ABS< 
KS <I,J> >-100)>=SGN<KS<I , J> > THE 
N S P = S P +1 

1450 IFKS<I,J>>100THENHK=HK+1 
.460 NEXTJ 

1470 IFHK=SPTHEN1500 


1430 IFSP/HK>.STHENDf<K-1>="Wahrsch 
einlich "+Df<K-1> :GO TO1500 
1490 Df<K-l>="Vielleicht "+Df<K-l> 
1508 NEXTI 
1510 I FK = 0 THEN1560 
1515 IFK>15THEN3800 

1520 FORI=0TOK-1 :CURS0R3, I +5:PRINTD 
f < I) : NEXTI 

1530 CURSOR40,1 :PRINT"Bitte suchen 
Sie sofort einen Arzt" 

1540 CURSOR40,2 : PR INT"auf, falls di 
e angegebenen Symptome" 

1545 CURSOR40,3:PR INT"vor 1 iegen. " 

1550 GOTO2800 

1560 CURSOR20..8 :PRINT"Die angegeben 
en Symptome lassen auf keiner 1 
ei" 

1570 CURSOR20,9:PRINT"Krankheiten s 
ch 1 ießen." 

1530 CURSOR20,11 : PR INT"Suchen Sie b 
itten in jedem Fall einen Arzt 
auf , " 

1590 CURSOR20,12 :PRINT"fal ls Sie si 
ch nicht wohl fühlen." 

2000 SVMB0L62,184,"Programmstart mi 
t der "CR'-Taste",2,1 
2010 GETAf : IFA f OCHR f(13 >THEN2010 
2820 RUN 

3000 CURSOR20,3:PRINT"Durch die Fül 

le der Symptome läßt sich leid * 
er" 

3010 CURSOR20,9:PRINT"keine Diagnos 
e erstellen." 

3020 GO TO 1530 

4999 STOP 

5000 REM *** SVMPTOM-ABFRAGE *** 

5010 CURS0R22,23 : PR INTSPC<35> 

5020 CURSORS,2: PR INTSPC<64> :CURSORS 
,3 : PR INTSPC(64) : S VMB0L64,20,"T 
rifft dieses Symptom zu ? <J/N 
>",2,1 

5030 CURS0R3,5:PRINTSPC<35-LEN<SVf< 
SZ)>/2> ; :FORK=lTOLEN<SVf<SZ>) + 

2:PRINT"*"; :NEX TK: PR INTSPC<34- 
LEN<SVf<SZ>>/2> 

5040 CURS0R3,6:PR INTSPC(36-LEN<SVf< 
SZ> >/2> ; : PR IN TS Vf<SZ>;SPC<35-L 
EN < S V f < SZ >>/2> 

5050 CURS0R3,7 : PR INTSPC<35-LEN<SVf< 
SZ)>/2>;:F0RK=lT0LEN<SVf<SZ>)+ 

2:PRINT"."; :NEX TK:PRINTSPC(35- 
LEN <SVf<SZ>)/2> 

5060 GETAf : IF<Af="J")+<Af = "j"> THENS 
E<SZ) = 1:CURSORS,2:PR INTSPC(64) 
:CURS0RS,3 : PR INTSPC<64) :SVMBOL 
162,28,"Symptom trifft zu !",2 
,1 : GOTO5086 

5070 IF <Af = "N"> + <Af = "n")THENSE<SZ) = 
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-1 : CURSORS,2 : PRINTSPC(64):CURS 
0R8,3:PRINTSPC(64) : SYMB0L128 2 
0,"Symptom trifft nicht zu" 2 
1:ELSE8OTO5060 ' ' 

5080 CURS0R22,23:PRINT"Bitte warten 
' der Doktor denkt nach" 

5090 RETURN 

10000 REM *** SYMPTOM-DATAS *** 
10010 DATA "Schmerzen, rechter Unte 
._ rbauch (beim Husten/Niesen)" 
100c0 DATA "Bruckgefühl in der Mage 
ngegend" 

10030 DATA "Der Patient übergibt si 
ch " 

10040 DATA "Übelkeit" 

10050 DATA "Fieber" 

10060 DATA "Gesichtsfarbe rot bis b 
lau lieh" 

10078 DATA "Schmerzhafte Empfindlic 
nkeit des ganzen Bauches" 

10080 DATA "Bauchdecke gespannt, au 
t getrieben" 

10099 DATA "Magenschmerzen nach kal 
ten Getränken" 

10100 DATA "Magenschmerzen morgens" 

10110 DATA "z un9e Ir,S " s 

10120 DATA "Magenschmerzen örtlich 
. begrenzt auf kleine Stelle" 

10130 DATA "Schmerzzunahme bei i P p r 
ern Magen" 

10140 DATA "Gewichtsabnahme" 

10150 DATA "Blutiges Erbrechen" 

1 0 160 DATA "Plötzliche, krampfartig 
e Schmerzen irn Bauch" 

10170 DATA "Beschwerdefreie Pausen" 
10180 DATA "Erbrechen" 

10190 DATA "Erbrochenes braun-schwa 
i"2, übler Geruch" 

10200 DATA "Schmerzen im rechten Ob 
erbauch" 

18218 D|=,T A "Strahlschmerz in rechte 
r Schulter und Rücken" 
iü^c.0 DATA "Schmerzen irn linken Ob* 
rbauch" 

10230 DATA "Schmerzen in linker Fla 
nke " 

10240 DATA ''Schmerzen beim Laufen < 

10258 DATA "Plötzliche Schmerzen in 
der Herzgegend" 

10260 DATA "Strahlschmerz in linker 
Schu1ter und im linken Arm" 
10270 DATA "Kalter Schweiß auf der 
Stirn" 

10280 DATA "Dumpfer Druck unter dem 
Brustbein" 

10290 DATA "Langsam zunehmende Atem 
not bei Anstrengung" 


"Druckgefühl in der Brus 


10300 DATA 
t" 

10318 DATA "Geschwollene Füße und K 
nöchel" 

DATA "Quälende Atemnot" 
"Schwacher Puls" 

"Blaue Lippen" 

Blasses Gesicht" 
Plötzliche Bewußtlosigk 


10320 

10330 

10340 

10350 

10360 


10370 

10380 

10390 

10400 

10410 

10428 

10430 

10440 

10458 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 


DATA 
DATA 
DATA 
DATA '" 
eit" 

DATA "Eine 
mt" 

DATA 
DATA '" 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Körperhälfte geläh 


Mund schief" 

Ständiger Hustenreiz" 

' Seitenstiche" 

'Schütte lfrost" 

Hohes Fieber" 

Wangen gerötet" 
Schwächegefüh 1 " 
Rasselgeräusch beim Luf 

tho len" 

DATA "Durchfall" 

BATA " A t e rns t ö r u n g e n " 

DATA "Völlegefühl" 

DATA "Kopfschmerzen" 

G le ichgewichtsstörungen 


DATA 


10590 

10600 

10610 

10620 

10630 

18640 

10650 


DATA "Ohrensausen" 

DATA "Kopf schmerzen uom Nacke 
n ausgehend" 

DATA "Ausschlag" 

DATA "Ausschlag hinter den Oh 
ren und im Gesicht beginnend" 
DATA "Entzündete Augen" 

DATA "Lichtempfindlichkeit" 
BATA "Halsschmer zen “ 

BATA "Ausschlag am Hals, Rück 

en und auf der Brust beginnen 
d " 

Mundumgebung ausschlagf 


DATA 

rei" 

DATA 

roße 

DATA 

chen 


10660 

10678 


"Stecknadel- bis linseng 
runde Flecken“ 

"Sehr kleine, rote Punkt 
zu Beginn, später gleich 
mäßige Rötung" 

DATA "Kleine, rundliche, rosa 
F lecken" 

BATA "In der Mitte wasserhell 
es Bläschen, nach kurzer Zeit 
eintrocknend" 

BATA "Bluterguß an beiden Aug 
enlidern" 

BATA "Klopfendes Gefühl über 
der Nasenwurzel, oder über de 
n Wangen“ 

DATA “Ohr druckempfindlich“ 
DATü “ Sch wer h b*r i gk e i *t 11 


: 
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e=88 


. iö98 


■ 

1 

:;"80 

t 

10710 


10720 

»' los igk 

10 ~ 3 0 
10740 

■ e geläh 

! 


18760 

ire is " 

18770 

10780 


10790 

10800 

eim Luf 

10810 


10820 

10830 


10840 

►rungen 

1 

10850 

10860 

| Hacke 

10878 

een Oh 

10888 

rnend" 

10890 

10908 

Bit" 

18910 

L Rück 

20800 


DATA 

en" 

DATA 

DATA 

DATA 


"Nächtliche Ohrenschmerz 


"Augenschmerzen" 
"Pupillen weit geöffnet" 
"Pilzmahlzeit vor 3-12 S 
tunden" 

DATA "Stechende Herzschmerzen 


DATA "Atemnot" 

DATA "Bewußtlosigkeit" 

DATA "Wundes Gefühl hinter de 
rn Brustbein" 

DATA "Aushusten uon glasigem 
Schleim" 

DATA "Brustschmerzen" 

DATA "Stechende Schmerzen bei 
m Atmen" 

DATA "Bluthusten" 

"Beschleunigter Puls" 
"Stechende Brustschmerze 


DATA 

DATA 

n" 

DATA 

DATA 


9 i nnen 

|cn lagf 

i nseng 

p ünk t 
11 e ich 

rosa 

The 1 1 
2e it 

b Aug 

i-ber 

erde 

bh" 


"Anfälle Nachts" 

"Bluten aus Nase oder Oh 
r (ohne sichtbare Wunden)" 
DATA "Schwerer Schlag auf den 
Kopf" 

DATA "Akute Herzbeschwerden" 
DATA "Patient war großer Hitz 
e ausgesetzt" 

DATA "Nackenschmerzen" 

DATA "Ausschlag an Stirn, Wan 
gen und hinter den Ohren" 

DATA "Sehstörungen" 

DATA "Zittern und Frieren" 
DATA "Trockene, graublaue Hau 
tfärbung" 

REM #*# KRANKHEITSNAMEN-DATAS 
### 

18010 DATA "HerzkranzgefäßVerengung 


18828 

18838 

18040 

10058 

10068 

20070 

28088 

28090 

28100 

20110 

28120 

28130 

20148 

20150 

28160 


"Herz infarkt" 

"Herzschwäche" 

"Herzversagen" 

"Kleis laufZusammenbruch" 
"Sch laganfa11" 
"Entzündung der Luftröhr 

"Bronchitis" 
"Lungenentzündung" 
"Lungenblutung" 

"Feuchte Brustfe 1 lentzün 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
e" 

DATA 
DATA 
DATA 
DATA 
düng " 

DATA "Brustfe1lentzündung" 

"Schlafmittelvergiftung" 
"Pi lzvergiftung" 
"Nahrungsmittelvergiftun 


DATA 

DATA 

DATA 

g" 

DATA 


"Bl indarmentzündung" 



20170 

DATA 

20188 

DATA 
ung " 

20190 

DATA 

20208 

DATA 

20210 

DATA 

20228 

DATA 

20238 

DATA 

28240 

DATA 

28250 

DATA 

20260 

DATA 

20270 

DATA 

20288 

DATA 

20290 

DATA 

20300 

DATA 

20310 

DATA 

20320 

DATA 

28330 

DATA 

20340 

DATA 

20350 

DATA 

1! 

20360 

DATA 

20370 

DATA 

20388 

DATA 

30008 

REM ! 
TAS ä 

30010 

DATA 

30020 

DATA 

30030 

DATA 

30040 

DATA 

30850 

DATA 

38060 

DATA 

30078 

DATA 

38080 

DATA 

38090 

DATA 

30180 

DATA 

30110 

DATA 

30120 

DATA 

30138 

DATA 

38140 

DATA 

30150 

DATA 

30160 

DATA 

30170 

DATA 

38180 

DATA 

30190 

DATA 

30280 

DATA 

30210 

DATA 

30228 

DATA 

30238 

DATA 

30248 

DATA 

38258 

DATA 

30260 

DATA 

38270 

DATA 

38280 

DATA 

30298 

DATA 

38300 

DATA 

30310 

DATA 

38320 

DATA 


"Blindarm Durchbruch" 
"Magenschleimhautentzünd 

"Magengeschwür" 

"Darrnko1ik" 

"Darmverschluß" 

"Gal lensteinkolik" 
"Schädelbasisbruch" 
"Gehirnerschütterung" 
"Sch laganfa11" 

" Innenohrerkrankung" 

"Sonnenstich" 
"Hirnhautentzündung" 
"Masern" 

"Schar lach" 

"Röteln" 

"W indpocken" 
"Mittelohrentzündung" 
"Grüner Star" 
"Kieferhöhlenvereiterung 

"Schock" 

"H itzschlag" 

"Stirnhöhlenvereiterung" 
### KRANKHEITSSVMPTOME-DA 
*# * 

25,26,72,0 

72,27,128,35,73,144,0 

29.31.38.44.8 

32.33.34.174.8 
27,35,174,-25,44,0 
37,138,36,0 

75,39,149,-105,148,144,0 
176,39,-185,77,0 
184,41,42,39,78,43,44 
45,39,79,0 

42,88,44,73,-78,-77,0 
81,39,105,44,0 
47,78,74,6,0 
18,4,46,71,16,17,0 
18,4,46,16,17,0 

1.2.103.104.105.8 
7,8,104,103,0 

3,9,-12,0 

104.12.13.8 
16,17,2,0 
27,8,116,3,119,0 

20.21.3.182.8 
174,35,27,164,103,83,34 

174.35.27.84.8 
174,37,-84,-85,0 

49.50.4.51.8 

49.52.184.86.187.8 
87,49,42,141,-86,4,103 
53,54,55,56,68,0 
157,42,53,58,59,61,0 
62,53,185,88,0 
53,-105,63,68,8 


■f e =ecial 
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Ploffer 


30338 

30340 

30350 

30360 

30370 

30330 

60000 

60010 

60020 


»ATA 5,67,66,68,0 

DATA 69,4,3,56,39,0 
DATA 65,43,0 
DATA 35,27,90.30,174 0 
»"I? 27,73,8! 
DATA 65,49,0 
FORI=lTOAK 

I>=1THENPRINTKR$ <I> 

nt A T I 


BEIM ABTIPPEN ARBEIT SPAREN 
kSnnen Sie sich, wenn sie mit 

InJe Sfe r » erUn9skarte *"> "eit- 
träger 1 anfordern ? 6 aU£ Date "' 

ab?nA den “ nd auf Ihre Belange 
abändern lassen sich diese 

Programme allerdings nur mit 

dieser CHIP-SPECIAL-Ausgabe 


Hexdump 


MZ-700/MZ-800 
HEXDUMP 
680 Bytes 
Assembler 
Plotter 


C000 

C2B0 


auf 


Rechner: 

Programmname: 

Programmlänge: 

Programmiersprache: 

Zubehör: 

Anfangsadresse: 

Endadresse: 

Ausführungsadresse: C 000 
Xm d pKtt 8lbt s 0eicherinhalt e 

MaschinensDraoho J-istandig m 

wird, w?e dJs i i q T r eSC:hrleben und 
tor aus geladen) ^Da J“ 

Laden. (manueller 
Das Programm . _ ..„ eine 

AAAA,EEEE oder AAAA,EEEE,SCXx” 


sofort nach dem 
Start durch 

hab 


und dürfen deshalb nur 
erte 0 und 1 annehmen 


di 


S = 


C = 


Schriftgröße 

S-T: 16 Speicherstellen/Zeile 
ö s P eiG hersteilen/Zeile 


S=0: 


Code 
C=1: 
C=0: 


Anzeigencode 

ASCII-Code 


XX 


Bankswitching 


XX=00 
XX=10 
XX=0 1 
XX=1 1 


0000 - 0FFF (RAM) 

D000 - FFFF (RAM) 
Monitor ROM (0000-0FFF) 
V=RAM, Tastatur, Uhr 


Alle 

sein 


müssen 


Eingaben 
^ man die Bit (SCXY) y 


KM : Endad resse 6SSe 
S>C,X entsprechen 


vierstellig 
trennt wer- 

:hS b ^ e r^ n z a rr abba “ X3 

ausgedruckt. Abtn-Code 

”lnif t rBr h ea e ^ aften .. EingaÖe " °der 


Programm. Ein 


das 


einzelnen Bits 


unterbricht 
miWCOOO möglich^ neUter Start ist 

Ulrich Eckhardt 


/. 
/. 
08 /. 


:C000=3£ 04 3? o»j ,, _ 

IcSf^CB II 00 ff zl C2 CD S IcB^Cl 3E 0D CD 5 c“ 3 E lf 

■«K?« 3 ü fl lf da 5 S ff ff ü i |; 

fl ff% **« 1* « läSü 5 fl ff » « » ■» / 

: 0038= 13 CD 10 04 DA 90 ri rl , . :C0A0=C1 CD A 5 01 rc EI ~ A 7 

: 0040=00 ED 42 DA ^ 22 92 ^. = C0A8=C2 ED 5B 90 ff g g ?? 7 

:ss£ü fl II » « - g 2 :::::::: :3Eä 3 g * “ ® 

! ™® S= ® 6 04 0 E 00 13 1A FE 30 /.C0C0=D5 CD 4B CI CD 2E CI rn 

! “f0«CA SA C 0 FE 31 C 2 90 cf / . S “C8=,45 CI 13 10 ™ CD 4 S “ 7 

“ F ’ “ 0110 EE 74 «.'“SIS S 3 £ s S g 47 


10 /. 
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Naturwissenschaft 


:3E0=F7 

Dl 

Fl 

6F 

26 

00 

EB 

13E8=22 

90 

11 

E6 

00 

2A 

92 

I3F0=ED 

52 

DA 

10 

CI 

22 

92 

Z 3F8=3E 

0D 

CD 

28 

C2 

11 

32 

Z100=CD 

A5 

01 

3E 

0D 

CD 

28 

C108=3E 

41 

CD 

28 

C2 

C3 

91 

C110=3E 

0D 

CD 

28 

C2 

3E 

41 

:118=28 

C2 

06 

05 

CD 

3E 

00 

Z120=FB 

31 

F0 

10 

C3 

AD 

00 

3128=10 

C9 

11 

C0 

CI 

C9 

C5 

CI 30=47 

07 

07 

07 

07 

CD 

DA 

C138=CD 

28 

C2 

78 

CD 

DA 

03 

CI40=28 

C2 

Fl 

CI 

C9 

3E 

20 

CI48=28 

C2 

C9 

3A 

95 

11 

E6 

C150=C6 

E0 

4F 

ED 

79 

1A 

D3 

C158=C9 

E5 

D5 

C5 

F5 

3A 

95 

CI60=47 

Fl 

CB 

58 

CA 

6A 

CI 

C168=CE 

0B 

FE 

10 

DA 

81 

CI 

CI70=39 

C2 

01 

78 

00 

ED 

Bl 

CI78=81 

CI 

CD 

28 

C2 

CI 

Dl 

C180=C9 

11 

A2 

CI 

06 

19 

1A 

CI88=28 

C2 

13 

10 

F9 

C3 

7D 

CI90=11 

C5 

CI 

CD 

06 

00 

CD 

CI98=00 

C3 

1A 

CI 

11 

DF 

CI 

CIA0=93 

CI 

20 

0D 

51 

33 

2C 

CIA8=20 

0D 

51 

32 

2C 

50 

3F 

C1B0=51 

31 

2C 

50 

20 

0D 

51 

C1B8=2C 

50 

20 

02 

53 

31 

2C 

C1C0=02 

53 

30 

2C 

0D 

2A 

2A 


19 /. i C1C8=2A 

11 /. :C1D0=92 

11 /. s C1D8=92 

C2 /-. s C1E0=96 

C2 /_ .... : C1E8-A4 

C0 /...-. . . - : C1F0=A4 

CD /.. :C1F8=A1 

10 /. s 0200“ 16 

06 /. s 0208=20 

F5 /_ .... : 0210=20 

03 /. :C218=9F 

CD /.. sC220=9D 

CD /- s C228=E5 

03 /........ :C230=E1 

E2 /.. . . . . . . :C238=0D 

11 /. ;C240=22 

CD /... :C24S=2A 

21 /.. : 0250=32 

02 /. s C258=3A 

El /... : 0260=42 

CD /.... 

01 /... . s 0270=52 

15 /. : 0278=5A 

03 /. sC280=8B 

50 /. s C288=9B 

00 /... . :C290=A3 

30 /. : C298=AD 

00/.. :C2A0=B9 

2A /. : C2A8=FB 


20 

46 

Al 

B8 

A4 

9F 

98 

/. 

20 

45 

A6 

B0 

97 

Al 

9A 

/„ 

20 

2A 

2A 

2A 

2A 

0D 

53 

/ E 

Al 

9D 

96 

Al 

9C 

9D 

92 

/. 

A4 

92 

20 

97 

9D 

B7 

92 

/. 

A4 

92 

9D 

20 

45 

B0 

9C 

/. 

9C 

9D 

92 

A4 

A4 

92 

0D 

/. 

48 

92 

9B 

9C 

A5 

B3 

9E 

/. 

A3 

9D 

A6 

96 

96 

92 

B0 

/, 

9A 

BD 

20 

55 

B8 

9D 

A6 

/. 

98 

20 

45 

9F 

A9 

98 

Al 

/. 

9C 

96 

11 

0D 

3E 

20 

0D 

/. 

D5 

C5 

CD 

8F 

01 

CI 

Dl 

/. 

C9 

51 

31 

2C 

50 

20 

20 

/. 

12 

13 

14 

15 

16 

20 

21 

/. 

23 

24 

25 

26 

27 

28 

29 

/. 

2B 

2C 

2D 

2E 

2F 

30 

31 

/. 

33 

34 

35 

36 

37 

38 

39 

/. 

3B 

3C 

3D 

3E 

3F 

40 

41 

/, 

43 

44 

45 

46 

47 

48 

49 

/. 

4B 

4C 

4D 

4E 

4F 

50 

51 

/. 

53 

54 

55 

56 

57 

58 

59 

/. 

5B 

5C 

5D 

5E 

5F 

7B 

80 

/, 

92 

93 

94 

96 

97 

98 

9A 

/. 

9C 

9D 

9E 

9F 

A0 

Al 

A2 

/■ 

A4 

A5 

A6 

A8 

A9 

AA 

AB 

/, 

AE 

AF 

B0 

B2 

B3 

B7 

B8 

/. 

BA 

BB 

BD 

BE 

06 

CF 

D7 

/. 

FC 

FF 

11 

00 

00 

00 

00 

/. 


Populations-Entwicklung 


Rechner: MZ-700 
Programmname: Life 
Programmlänge: 1150 Bytes 
Programmiersprache: Assembler 
Zubehör: Kassettenrecorder 

Anfangsadresse: B000 
Endadresse: B477 
Ausführungsadresse: BOOO 


Die Idee, komplexe Abläufe in der 
Populationsentwicklung mit Hilfe 
eines Computers zu simulieren ist 
zwar sehr alt (dies wurde schon auf 
den Computern der sechziger Jahre 
realisiert), jedoch immer noch sehr 
interessant. Wie man nämlich fest¬ 
gestellt hat, hängt die Entwicklung 
einer Kultur im erheblichen Maße 
von der Bevölkerungsdichte ab. Ob 
ein neues Individuum entsteht oder 
ein bereits bestehendes am Leben 
bleibt oder stirbt, wird somit von 


der Anzahl der Nachbarn bestimmt, 
von denen es umgeben ist. Um diese 
Entwicklung darstellen zu können, 
unterteilt man den Bildschirm in 
kleine Quadrate, die Zellen genannt 
werden. Der Computer untersucht nun 
die einzelnen Zellen und die jewei¬ 
ligen Nachbarzellen und legt dann - 
entsprechend den Regeln - fest, ob 
in der Zelle neues Leben entstehen 
kann oder bereits bestehendes am 
Leben bleibt oder stirbt. 


Zum Programm 

Das von diesem Programm bearbeitete 
Feld ist 80*50 = 4000 Zellen groß. 
Aufgrund der hohen Rechengeschwin¬ 
digkeit benötigt das Programm zur 
Erzeugung einer neuen Generation 
nur ca. 0.5 Sekunden. Die Regeln 
dafür lauten: 

1) Eine Zelle wird in der Genera¬ 
tion t+1 mit einem Individuum 
besetzt, wenn es in der Genera- 
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Naturwissenschaft 


tion t genau drei Nachbarn hat. 

2) Ein Individuum bleibt am Leben, 
wenn es zwei oder drei Nachbarn 
hat. 

3) Ein Individuum stirbt, wenn es 
weniger als zwei oder mehr als 
drei Nachbarn hat. 

Nach dem Laden des Programms 
(Startadresse = B000 Hex) erscheint 
ein Menü. 

'G'i Wenn Sie diesen Menüpunkt 
anwählen, gelangen Sie zur Eingabe. 
Da ein Feld mit 4000 Einzelfeldern 
bearbeitet wird, müssen immer vier 
Einzelfelder gleichzeitig eingege¬ 
ben werden. Dazu dienen die Tasten 
0 bis 9 und A bis F. Die Taste * 0 * 
erzeugt einen Space, die Taste ’1' 
einen Punkt links oben usw. Am 
besten probieren Sie alle Tasten 
einmal aus und zeichnen sich die 
jeweilige Punktkombination auf. Mit 
Hilfe der Cursortasten können Sie 
den Cursor über das Eingabefeld 
bewegen und mit <CR> kommen Sie 


wieder in das Menü zurück. 

*B': Hiermit wird das Hauptprogramm 
gestartet, welches durch SHIFT & 
BREAK unterbrochen werden kann. Die 
Ausgangsstellung wird dadurch nicht 
gelöscht, d.h., wählt man im Menü 
’B® an, so beginnt das Programm 
wieder mit der Ausgangsstellung. 

’W': Wurde die Bearbeitung des Fel¬ 
des bei ’B’ unterbrochen, so fährt 
man ’W’ an der unterbrochenen Stel¬ 
lung fort. 

®E': Damit kann die ursprüngliche 
Stellung ergänzt werden. 

'U f : Hier kann man die unterbroche¬ 
ne Stellung ergänzen. 

'S': Hiermit kann man interessante 
Stellungen auf Kassette abspei¬ 
chern . 

'V': Erfüllt die Funktion von VERI- 
FY. 

'L't Stellungen werden geladen und 
erscheinen auf dem Bildschirm. 
Durch einen Tastendruck kommt man 
in das Menü. 

Joachim Podlech 


:BUU(0=18 25 1A 
s B008=09 08 77 
: 13010=00 D0 11 
s B018=ED B0 C9 
:B020=D0 01 E8 
:B028=D7 8F 01 
sB030=23 0B 78 
:B038=B3 CD 15 
:B040=00 3E Fl 
:B048=02 B0 21 
s B050—CD 1B 00 
sB05S=lB 00 FE 
:B060=CA 97 B0 
:B068=FE 57 CA 
:B070=8B B2 FE 
:B07B=53 CA 9D 
:B080=B2 FE 56 
:B088=00 18 C5 
:B090=D0 01 E8 
:B098=63 B2 21 
:B0A0=FE 00 20 
:B0A8=CE 0B FE 
sB0B0=28 26 FE 
:B0BB—28 35 FE 
:B0C0=28 36 32 
*B0C8=CD 1F 04 
:B0D0=C3 9D B0 
:B0D8=CD 0F B0 
s B0E0=95 01 E8 
:B0E8-B0 23 CD 
:B0F0=18 FS 11 
:B0F8=11 28 00 
:B100=CD 10 B3 
:B108=90 01 28 


13 FE 0D C8 4F / 
3C *08 18 F3 21 / 
00 90 01 8E 03 / 
21 00 95 11 00 / 
03 ED B0 C9 21 / 
3A 04 3E F0 77 / 
Bl 20 F7 11 19 / 
00 11 1F B4 06 / 
08 21 6F D0 CD / 
24 D0 CD 02 B0 / 
FE 00 20 F9 CD / 
00 28 F9 FE 47 /, 
FE 42 CA 00 Bl /, 
75 B2 FE 45 CA /, 
55 CA 94 B2 FE /. 
B2 FE 4C CA EE /. 
CA E4 B2 CD 3E /. 
21 00 90 11 00 /. 
03 ED B0 C9 CD /. 
CD Dl CD 1B 00 /. 
F9 CD B3 09 CD /. 
00 28 F6 FE 66 /. 
13 28 33 FE 14 /. 

11 28 34 FE 12 /. 
18 B3 11 17 B3 /. 
38 06 C6 F0 77 /. 
CD 3E 00 18 C5 /. 
21 00 D0 11 00 /. 
03 ED B0 C3 36 /. 

12 00 18 AE 2B /. 
28 00 19 18 F2 /. 
B7 ED 52 18 EA /. 
11 00 D0 21 00 /. 
00 AF CB 4E 28 /. 


ioj. nt,=01 3C CB 
:Bl18=56 28 01 
:B120=01 3C CB 
:B12B=ED 42 CB 
:B130=CB 56 28 
:B138=01 3C 09 
:Bl40=03 20 0A 
:Bl48=04 FE 04 
:B150=CB 86 El 
:B158=CB C6 El 
:B160=3C CB 5E 
:Bl68=28 01 3C 
:B170=3C CB 56 
:B178=42 CB 56 
:Bl80=56 28 01 
:B188=3C 09 CB 
:B190=20 0A 18 
:B198=FE 04 38 
:B1A0=SE El 18 
:B1A8=CE El AF 
:B1B0=CB 5E 28 
:B1B8=01 3C 2B 
:B1C0=CB 4E 28 
:B1C8=2S 01 3C 
:B1D0=3C CB 4E 
:B1D8=42 CB 56 
:B1E0=0A 18 10 
:B1E8=04 38 08 
:B1F0=E1 18 06 
:B1F8=E1 AF CB 
:B200=56 28 01 
s B208=3C 23 CB 
:B210=56 28 01 
:B21B=01 3C 2B 


5E 28 01 3C CB / 
3C 2B CB 5E 28 / 
4E 28 01 3C B7 / 
5E 28 01 3C 23 / 
01 3C CB 5E 28 / 
CB 46 20 06 FE / 
18 10 FE 02 38 / 
38 08 E5 62 6B / 
18 06 E5 62 6B / 
AF CB 46 28 01 / 
28 01 3C CB 56 /, 
23 CB 46 28 01 /, 
28 01 3C B7 ED /, 
28 01 3C 2B CB /, 
3C CB 5E 28 01 /. 
4E 20 06 FE 03 /. 
10 FE 02 38 04 /. 
08 E5 62 6B CB /, 
06 E5 62 6B CB /. 
CB 46 28 01 3C /. 
01 3C CB 4E 28 /. 
CB 5E 28 01 3C /. 
01 3C 09 CB 4E /. 
23 CB 46 28 01 /. 
28 01 3C B7 ED /. 
20 06 FE 03 20 /. 
FE 02 38 04 FE /. 
E5 62 6B CB 96 /. 
E5 62 6B CB D6 /. 
46 28 01 3C CB /. 
3C CB 4E 28 01 /. 
46 28 01 3C CB /. 
3C 09 CB 46 28 /. 
CB 46 28 01 3C /. 
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Naturwissenschaft 


»gramm 
[FT & 

l. Die 
nicht 
i Menü 
:gramm 

i. ■ 

i Fel¬ 
fährt 
5 tel- 

liche 

bche- 

sante 

spei- 

f ERI- 

r. und 
:irra. 
man 

: lech 


. 








> 




* • ■ ■ a 

■ ■ ■ ■ n 

■ > ■ ■ ■ 










B220=CB 

4E 

28 

01 

3C 

B7 

ED 

42 

/ . i 

iB350=57 

92 

A6 

96 

92 

9D 

20 

B0 

/, 

B228=CB 

5E 

20 

06 

FE 

03 

20 

0A 

/ . : 

: 13358=Al 

9F 

98 

20 

42 

9D 

92 

Al 

/. 

B230=18 

10 

FE 

02 

38 

04 

FE 

04 


15 

11 

11 

11 

11 

11 

11 

/, 

B238=38 

08 

E5 

62 

6B 

CB 

9E 

El 

/. i 

:B368=l1 

11 

45 

2E 

2E 

45 

9D 

97 

/, 

B240=18 

06 

E5 

62 

6B 

CB 

DE 

El 


B0 

A2 

92 

B0 

15 

11 

11 

/, 

B248=7C 

FE 

93 

20 

05 

7D 

FE 

E8 

/. i 

:B37B=11 

11 

11 

11 

11 

11 

11 

11 

/, 

B250=28 

05 

23 

13 

C3 

0C 

Bl 

CD 

/ . : 

:B380=55 

2E 

2E 

45 

9D 

97 

BB 

B0 

/, 

B258=0F 

B0 

CD 

IE 

00 

CA 

36 

B0 


92 

B0 

20 

B0 

Al 

9F 

98 

/, 

B260=C3 

03 

Bl 

CD 

36 

B4 

01 

E8 

/. 

B390=20 

42 

9D 

92 

Al 

A9 

15 

11 

/ . 

2268=03 

3E 

F0 

77 

23 

0B 

78 

Bl 

/ . 

B398=l1 

11 

11 

11 

11 

11 

11 

11 

/, 

B270=20 

F7 

C3 

8B 

B0 

21 

00 

90 

/ . 

B3A0=11 

11 

11 

4C 

2E 

2E 

4C 

B7 

/, 

B278=CD 

IE 

B0 

C3 

03 

Bl 

3E 

15 

/ . 

B3A8=A1 

9C 

11 

11 

14 

14 

14 

14 

/, 

B2B0=32 

71 

ii 

3E 

0B 

32 

72 

ii 

/ . 

B3B0=14 

14 

14 

53 

2E 

2E 

53 

Al 

/■ 

B2B8=3E 

32 

C9 

CD 

7E 

B2 

CD 

1B 


B3B8=AB 

92 

11 

11 

14 

14 

14 

14 

/, 

B290=B0 

C3 

9A 

B0 

CD 

7E 

B2 

CD 

/ . 

B3C0=14 

14 

14 

56 

2E 

2E 

56 

92 

/. 

B298=8B 

B0 

C3 

9A 

B0 

3E 

16 

CD 

/ . 

B3C8=9D 

A6 

AA 

BD 

20 

20 

20 

20 

/. 

B2A0=12 

00 

11 

62 

B4 

DF 

CD 

09 

/ . 

B3D0=20 

20 

20 

20 

20 

20 

20 

20 

/. 

:B2A8=00 

11 

Fl 

10 

CD 

03 

00 

21 

/ . 

B3D8=20 

20 

20 

20 

20 

20 

20 

20 

/. 

B2B0-30 

B4 

11 

02 

11 

01 

06 

00 

/ . 

B3E0=37 

14 

12 

12 

36 

14 

12 

12 

/. 

B2B8=ED 

B0 

21 

F0 

10 

36 

01 

CD 

/. 

B3E8=35 

14 

12 

12 

34 

14 

12 

12 

/, 

B2C0=21 

00 

38 

16 

CD 

24 

00 

38 

/. 

B3F0=33 

14 

12 

12 

32 

14 

12 

12 

/, 

B2C8=11 

CD 

09 

00 

11 

5E 

B4 

DF 

/. 

B3F8=31 

14 

12 

12 

30 

20 

20 

20 

/, 

B2D0=CD 

1B 

00 

FE 

00 

28 

F9 

C3 

/. . 

B400=20 

38 

14 

11 

11 

39 

14 

11 

/. 

B2D8=36 

B0 

FE 

02 

28 

F9 

11 

50 

/ . 

B408=l1 

41 

14 

11 

11 

42 

14 

11 

/. 

B2E0—B4 

DF 

18 

EC 

3E 

16 

CD 

12 

/ . 

B410=l1 

43 

14 

11 

11 

44 

14 

11 

/, 

B2ES=00 

CD 

2D 

00 

18 

D9 

3E 

16 

/ . 

B418=l1 

45 

14 

11 

11 

46 

0D 

50 

/. 

B2F0=CD 

12 

00 

CD 

27 

00 

38 

E2 

/ . 

18420=50 

50 

50 

50 

50 

50 

0D 

50 

/. 

B2F8=CD 

09 

00 

11 

6D 

B4 

DF 

11 

/ . 

B428=50 

50 

50 

50 

50 

50 

50 

0D 

/. 

B300=F1 

10 

DF 

CD 

2A 

00 

38 

D2 

/ . 

B430=E8 

03 

9B 

95 

36 

Al 

CD 

7E 

/. 

B308=CD 

1B 

B0 

CD 

0F 

B0 

18 

C0 

/ . 

B438=B2 

21 

00 

90 

C9 

04 

01 

14 

/. 

B310=CD 

1B 

B0 

CD 

0F 

B0 

C9 

30 

/. iB440=01 

00 

2A 

00 

20 

17 

0E 

05 

/. 

B318=30 

16 

4D 

45 

4E 

55 

45 

3A 


00 

4F 

00 

0A 

2E 

10 

2E 

/, 

.■ 3320= 15 

11 

11 

47 

2E 

2E 

45 

A6 


48 

45 

43 

4B 

20 

53 

55 

/, 

:B32B=B0 

97 

Al 

9A 

92 

20 

28 

43 


20 

45 

52 

2E 

0D 

4F 

4B 

/. 

:B330=52 

29 

15 

11 

11 

11 

11 

42 


0D 

46 

49 

4C 

45 

4E 

41 

/. 

!B338=2E 

2E 

4C 

49 

56 

45 

20 

28 


45 

3F 

20 

0D 

4C 

4F 

41 

/. 

i3340=42 

9D 

92 

Al 

A9 

29 

15 

11 


49 

4E 

47 

20 

0D 

00 

00 

/. 

:B348=11 

11 

11 

11 

11 

57 

2E 

2E 

/ . 











Kegelberechnung 


Rechner: MZ-700/800 
Programmlänge: 15227 Bytes 
Programmiersprache: BASIC 
Zubehör: Plotter und Disk-Basic 

Mit diesem Programm können Sie auf 
einfache Weise den Zuschnitt von 
Kegeln und Kegelstümpfen berechnen, 
wie er zum Beispiel beim Behälter¬ 
oder Apparatebau benötigt wird. 

Mach dem Einladen des Programmes 
erscheint folgendes Menü auf Ihrem 
Bildschirm: 

' . Kegelzuschnitt 

2. Kegel mit Krempe 

3. Kegel mit Aushalsung 


Haben Sie sich entschieden, so 
werden Sie nach mehreren Werten 
gefragt. Um Ihnen die Eingabe zu 
erleichtern, wird an Hand einer 
Grafik am oberen rechten Bild¬ 
schirmrand jeweils erläutert, wel¬ 
chen Wert Sie eingeben sollen (z.B. 
Mittendurchmesser, Winkel etc.). 
Die restlichen Größen berechnet das 
Programm. 

Haben Sie alles korrekt eingegeben, 
werden die Zuschnitte und sämtliche 
Werte auf dem Plotter ausgegeben 
(nicht maßstabsgetreu). 

Peter Köhler 
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Naturwissenschaft 





KEGELBERECHNUNG: ZUSCHNITT 


nach folgenden E I NGABEN « !r , d d#rfc 


«Inglgeb^rTle^r^ e ^ ^ £ Werte mueeeen im Unterprogramm '8USCHHITT' 


Dl = 
D 2 = 


s 

f 

H 


50 mm 
1 0 mm 
1 mm 
18.4 • 
60 mm 


D2 - 50 mm 

$ “ 5 mm 

f = 18.4 * 


KEGELBERECHNUNG: ZUSCHNITT 


R 

r 

a 

B 

C 


errechnete 

29.1 mm 

15.8 mm 

113.8 * 

1 32 mm 
20 mm 


Wert*: 


noch folgendon EINGABEN «.;*« ** S u8ohnUt be „. oh „ et: 

□1 = 3345 mm 

D 2 = 557 mm 

s = 55 mm 

f = 54.3 * 

H = 1000 mm 


2 - 


errechnete u 9 n*e 

2058.3 mm 
342.2 mm 
292.5 ' 

4112 mm 
3220 mm 





: 1 1 

22 

i 2 i 


KEGELBERECHNUNG z mit KREMPE 


folgende EINGABEN 


wunden gemaoht: 


252 


Da - 
s ” 
r* - 
f = 
Hb = 


1 00 mm 
3 mm 
44 mm 
15 ' 

25 mm 


e ingegebel^wendeir^^ ^ e w ent e mueeeen im Unterprogramm ■'3USCHNITT 


Dl - 113 mm 

s = 3 mm 


f = 15 * 

KEGELBERECHNUNG 


m i 


t AUSHALSUNG 


folgende EINGABEN 


10 REN KEGELBERECHNUNG 
28 REM FUER CHIP SPECIAL 
30 REM VON KOEHLER 
40 REM 
50 CLR : CLS 

FOR 1=3 TO 5 
READ A f 


wurden gemaohtt 


CURSOR 12,I 


Da = 
s = 
r = 
f = 
Hb = 


80 mm 
5 mm 
1 05 mm 
18.4 ■ 
23 mm 


60 
70 
80 

90 NEXT 
100 FOR 1=8 
110 READ Af 
120 CURSOR 5, I 
138 NEXT 
140 CURSOR 


PRINT A$ 


TO 10 


PRINT A $ 


11,13 :PRINT"GESCHAEFTSPR 


Sharp MZ 700/800 


fT-i 


’ü 


TH 

i-ii 


hbi 


_ 
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Naturwissenschaft 


'SUSCHNITT 


c 


SPR 


'00/800 


OGRAMM" 

-58 FOR 1=11 TO 28 

-58 CURSOR 1,14:PR INT CHR$(227) :NEX 
T 

-~0 CURSOR 4,21:PRIHT"Copyright tay 
PETER KOEHLER, 1984 
-38 WA IT 5800 
-90 GOTO 240 

508 DATA | / /- I“ I , L I- I - I 

\ 


I_\_ 

~ r\ 


i_ 


-i0 data r\ r 
11 / - 

228 DATA i“\ I- L/ I- 


/' 


ii n i 

M III 


r 


i i 


230 

240 
250 
268 
2 78 
280 
290 
300 

310 
328 
330 
340 
5 58 

360 

370 

380 

390 

400 

418 

500 

510 

528 

530 

540 

550 

560 

578 

588 

590 

500 

610 

620 

630 

300 

810 

328 


1_I \ I. 


DATA 

LI \J 

REM * VAR IABLENDEFIN ITION 
Al$="KEGELBERECHNUNG" 

A2$="*******************" 


I LI LJ I 


REM 
REM 
REM 
REM 
TEL 
REM 
REM 
REM 
REM 
REM 
B , C 
REM 
REM 
REM 
REM 
REM 
REM 


Dl 

D2 

H , H1 
F , F1 

S 

R 1, R2 
R3 , R4 
A , Al 
B , C 


M ITTENDURCHMESSER 


HOEHE D. KEGELS 
WINKEL ACHSE U. 


MAN 


WANDDICKE 

ZUSCHNITT 


RADIUS R 
r 

WINKEL a 
LAENGEN 


E X , E V ; G X , G V 
FX,F V;HX,H V 
WU$,WU 
DA 
R 

HB 


KONSTRUKTIONS¬ 
HILFSPUNKTE 
BERECHNUNGSWUNSCH 
AUSSENDURCHMESSER 
KREMPENRADIUS 
BORDHOEHE KREMPE 
PR INT "HÜB" ;TAB(10) ;A2$ 

PRINT"0";TAB(10>";Alf;" #" 
PRINT"B";T AB <10) ;A2* 

PRINT"BBB";TAB(4);"WAEHLEN SIE 
ZWISCHEN:" 

PR INT"BB(1) 

SCHNITT 
PR INT "B( 2) 

T KREMPE" 

PR IN T"B(3 > 


BERECHNUNG: KEGELZU 


BERECHNUNG: KEGEL MI 


BERECHNUNG: KEGEL 
T AUSHALSUNG" 

PRINT"fl(4> PROGRAMMENDE" 

PRINT "BB";SPC<25) ;CHR $(127 > " 
ENNZIFFER!"; 

GET WU*:WU = VAL(WUD 

IF WU<1 OR WU>4 GOTO 598 

ON WU GOSUB 800,2390,3040,638 

GOTO 500 

END 

REM 

REM * UP-KEGELZUSCHNITT * 

REM ####$###***##*** **##* 


MI 


838 PRINT"»" ; Alf ;" : ZUSCHNITT (DB 

il 

840 PRINT TAB(6);" r --, " 

858 PRINT TAB(6) ; " IEINGABENI" 

360 PRINT TAB (6) ; " «---i " 

870 CURSOR 26,7:PRINT"/— \B\B\B\B\ " 
880 CURSOR 22,11:PR INT "/B/O/B/" 

890 CURSOR 22,12: PRINT"- 

il 

900 CURSOR 0,7:PRINT"alle Laengenan 
-":PR INT"gaben in 'mm'!":PRINT 
TAB(18) ; " — " 

918 CURSOR 22,13 : PR INT"| j 


920 CURSOR 22,14 : PRINT"| 

il 

930 CURSOR 22,15 :PRINT"- 


D1 


940 PRINT"D Dl" : PR IN T" D2":PRINT" s 
" : PR IN T" f" .PRINT" H" :CONSOLE 2 
1,4 

950 CURSOR 0,21: INPUT "M I TTENDURCHM 
ESSER: Dl Crnm3= ";X$ 

960 D1 = VAL(X$) : CLS:CURSOR 3,15: PR IN 
T SPC(19) : CURSOR 3,15:PRINT"= " 
j D1;" mm" 

978 CURSOR 27,4 : PR INT"D2" : CURSOR 27 
, 5 : PRINT"!—|" 

980 CURSOR 10,23 : PRINT"FALLS KEGEL 
•4 D2= 8" 

990 CURSOR 0,21: INPUT "M I TTENDURCHM 
ESSER: D2 C mm3 = ";X$ 

1000 D2 = VAL(X$) : CLS : CURSOR 3,16:PRI 
NT SPC(19) : CURSOR 3,16:PRINT" = 
";D2;" mm" 

1010 IF B2O0 GOTO 1040 

1020 CONSOLE 4,4,27,2:CLS:CONSOLE 7 
,1,30,6:CLS : CONSOLE 

1038 CURSOR 27,6:PRINT"/\":GOTO 106 


PRINT SPC(10) 
PRINT"—\" 

PRINT"sBB\BBB\":C 0 


1040 CURSOR 27,6: 

1050 CURSOR 27,7: 

1060 CURSOR 23,7: 

NSOLE 21,4 

1070 CURSOR 0,21 : INPUT "WANDDICKE: 

s C mm3 = ";X f 

1088 S = VAL(XI) : CLS : CURSOR 3,17:PRIN 
T SPC(19) : CURSOR 3,17:PRINT" = 

";S;" mm" 

1090 IF D2O0 GOTO 1118 

1100 CURSOR 29,6 - PRINT"-1 ":G0 

TO 1120 

1110 CURSOR 30,7 : PR IN T "-" 

1120 CURSOR 36,7: PRINT"! BB! BBI BBI " 
1130 CURSOR 35.9: PRINT"H HI181 I " 

1148 CURSOR 10,24 : PR IN T SPC(28); 
1150 CURSOR 28,8:PRINT" IBB ItBBB 
1160 CURSOR 0,21-PRINT"alternativ 
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WINKEL: f C"3 =" 

1178 PRINT TAB <12);"HOEHE: H CmmT= 

ii 

1180 PRINT TAB<18>;"BZAHLENWERT ode 
r 'X' eingeben"; 

1190 CURSOR 27,21 : INPUT " ";X$ 

1200 F = VAL < X $ > : IF FO0 THEN CLS:GOT 
0 1270 

1210 CURSOR 10,24 : PR IN T SPC<28>; 
1220 CURSOR 27,22: INPUT " ";Xf 
1230 H=VAL(X$) : H 1 = H:CLS:CURSOR 3,19 
:PRINT SPC <19) 

1240 CURSOR 3,19 : PR INT"= " ; H ; " mm" 
1258 F=180/**ATN< <Dl-D2>/2/H> :F1=IN 
T <F#10 + .5)/10 

1260 CURSOR 3,18 : PR IN T SPC<19>:CURS 
OR 3,18: PR IN T " = " ; F1; " '":<30T0 
1300 

1270 H= <D1-D2> / <2# TAN <-n^F/130> ) : Hl = 
INT < H + . 5 ) : F1 = F 

1280 CURSOR 3,18: PR INT SPC<19> : CURS 
OR 3,18:PR INT"= ";Fi" "" 

1290 CURSOR 3,19:PRINT SPC<19):CURS 
OR 3,19:PRINT"= ";H1;" mm" 

1300 CURSOR 16,23 : PRINT"EINGABEN RI 
CHTIG (J/N > ?"; 

1310 GET X0$: IF X0$="J" THEN CLS:GO 
f TO 1340 

1320 IF X0$="N" THEN CLS:GOTO 950 
1330 GOTO 1310 

1340 CURSOR 8,23:PR INT"IST PLOTTER 
EINSATZ BEREIT 

1350 GET X0$ : IF X0$O"J" GOTO 1350 
1360 CURSOR 6,2:PR INT SPC<10) : PR INT 
TAB(6>;SPC<1);:PRINT TAB<15>; 
SPCC1) 

1370 PRINT TABC6);SPC<10) 

1330 CLS:CURSOR 8,21;PR INT" r - 

_ II 

j 

1390 PRINT TAB<3>(BERECHNUNG & AU 
SDRUCK|" 

1400 PRINT TAB <8> ;»l_ 

-j : CONSOLE 

1410 PRINT/P"KEGELBERECHNUNG: ZUSCH 
NIT T":PSKIP 1:PMODE TS 
1420 PRINT/P"nach -fo lgenden" : PSK IP- 
1:PMODE TN 

1430 PRINT/P TAB (8>; " EINGABEN ":PS 
KIP-1:PMÖDE TS 

1440 PRINT/P TABC36);"wird der Zusc 
hnitt berechnet:":PMODE TN:PSK 
IP 1 

1450 PRINT/P TAB < 4);"Dl = ";D1;" mm 

II 

1460 PRINT/P TAB < 4);"D2 = ";D2 ; " mm 

li 

1470 PRINT/P TAB<4)j"s = "iS;" mm" 
1480 PRINT/P TAB<4);"f = ";F1;" *" 


1490 

1500 

1510 

1520 

1530 

1540 

1550 


PRINT/P TAB < 4 >;"H = ";H1," mm 


PSKIP 1:PRINT/P TAB<8>;" errec 
hnete " : PSK IP-1:PMODE TS 
PRINT/P TAB <42>;"Werte:" :PMODE 
TN:PSK IP 1 

R1 = D1/<2*S IN <F#ir/180> ) :R2=INT< 
R1ÜÜ0 + . 5) /10 

R3 = B2/<2#SIN<F#n'/180> ) :R4=INT< 
R3#10+.5)/10 

A = 360ÜfSIN<Füfir/180):Al=INT<A*10 
+ . 5)/10 

PRINT/P TAB<4);"R = ";R2;" mm 


1560 PRINT/P T AB < 4 >;"p = ";R4;" 


mm 


1570 

1530 

1590 

1600 

1610 


; Al; 


1620 

1630 

1640 


mm" 
mm" 
:FX = 


1650 


1660 

1670 


1680 

1690 

1700 

1710 


PRINT/P TAB <4>;"a = 

IF A<180 GOTO 2120 
IF A=180 GOTO 1900 
B = 2#R1 : B= INT <B + .5> 

C=R1+R1#S IN << A/2-90> #ir/180> :C= 
IN T ( C + . 5 > 

PRINT/P TAB(4);"B = ";B;" 

PRINT/P TAB < 4 > ;"C = ";C;" 
FX=195ÜfCOS(<A/2-90)üfir/180> 

INT <FX + .5> : EX = -FX 
FY=195#SIN< (A/2-98) #tr/180> 

INT< F V + . 5) ; EV = FV 
HX = 50äÜCOS< <A/2-90) #-ir/188 > 

NT <HX+.5) : GX = -HX 
H V=50 NfS IN (< A/2-90 > süir/180 > :HV=I 
NTCHV + .5) :GV = HV 
PMODE GR:PM0VE 208,-300:HSET 
X16,-200,0:PMOVE 0,0 
7.16,200,0 : PMOVE 0,0 
*16,0,200:PLINE Kl:PCOLO 


: F Y = 


:HX=I 


1720 

1730 


PL INE 
PL INE 
PL INE 
R 1 

PCIRCLE 

PCIRCLE 


0,0,195,0,90+Al/2,10 
0,0,195,450-Al/2,360,1 


1740 


1750 


1760 

1770 


1738 

1798 

1300 


1310 

1820 

1838 

1840 


IF D2=0 THEN PHOME:PLINE EX,-E 
V : PHOME:PL INE FX,-FV:PCOLOR 0: 
GOTO 1300 

PMOVE EX,-EV:PLINE GX,-GV:PMOV 
E FX,-FV:PLINE HX,-HV:PHÖME 
PCIRCLE 0,8,50,0,90+Al/2.10 
PCIRCLE 0,0,50,450-Al/2.369,10 
:PCOLOR 0 

PHOME:PL INE 25,43:RLINE-18,-8, 

8,-5:PL INE 25,43 

PCOLOR 3:PMOVE 25,50:GPRINT [2 

,03,"r";PCOLOR 8 

PHOME :PLINE 168,97:RLINE-18,0, 

5,-8: PL INE 168,97 

PCIRCLE 0,0,80,8,28,10 

PCIRCLE 0,0,80,32,90+Al/2,10 

PCIRCLE 0,0,30,450-Al/2,360,10 

PMOVE-195,0 : PL INE-195,255:RMOV 


Irr cf 






* £ 
■10 
*28 
■E0 

■*e 
■t 0 
* 0 0 


• - 2 


010 


■ * 




* ie«r 


_r 
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E 0,-5:RLINE 10,5,8,-10 : PL INE- 
195,250 

1850 PLINE 195,250:RLINE-18,5,0,-18 
; PL INE 195,250 : PMOVE 195,0: PLI 
HE 195,255 

1860 PMOVE 0,195:PLINE 255,195:RM0V 
E~5,0:RLINE—5,-10,10,8:PL INE 2 

58,195 

1878 PLINE 258,-FV :RLINE-5,10,18,0 : 
PLINE 250,-FV:PMOVE FX,-FY:PLI 
NE 255,-FV 

1888 PCOLOR 3:PMOVE 268,28 : GPR INT C 
2,8 3,"C“ : PMOVE 120,80 :QPRINT C 
2,83,"R" 

1898 PMOVE-88,68:GPRINT C2,03,"a":P 
MOVE-5,260:SPRINT C2,03,"B"-SO 
TO 2388 

1980 B = 2 # R1 : B = IN T <B + .5) 

1910 C=R2 

1920 PRINT/P TAB(4);"B = “;B;" mm" 
1930 PRINT/P TAB<4) ;"C = " ; C ; *' mm" 

1940 PMODE GR:PMOVE 200,-300:HSET 
1958 PLINE % 16,8,200 :PLINE V.l 
I960 PMOVE-200,0 :RLINE 18,8:PC0L0R 
1 

1970 PCIRCLE 0,0,195,0,180,18 
1980 IF D2=0 THEN PLINE 195,0:PHOME 
:PCOLOR 8:G0T0 2030 
1998 PLINE-58,0 ;PMOVE 195,8:PLINE 5 
0,0 

2000 PCIRCLE 8,0,50,0,180,10:PCOLOR 
0 

2818 PHOME:PL INE 25,43:RLINE-10,-8, 
8,-5 :PLINE 25,43 

2020 PCOLOR 3 : PMOVE 25,50:GPRINT C2 
,03,"r" : PCOLOR 0 

2830 PHOME : PL INE 168,97 :RL INE-10,8, 
5,-8 : PL INE 168,97 
2840 PCIRCLE 0,8,30,0,28,10 
2850 PCIRCLE 0,8,80,32,180,10 
2060 PMOVE-195,0 : PL I NE-195,255:RMOV 
E 0,-5 :RLINE 10,5,0,-10 : PL INE- 
195,250 

2078 PLINE 195,250:RLINE-10,5,0,-18 
:PL INE 195,250:PMOVE 195,0:PLI 
NE 195,255 

2880 PMOVE 0,195 : PL INE 255,195:RM0V 
E-5,8:RLINE-5,-10,10,0:PLINE 2 

58,195 

2890 PLINE 250,8:RLINE-5,10,10,0:PL 
INE 250,0 : PMOVE 198,0:PLINE 25 
5,0 

2100 PCOLOR 3:PMOVE 260,20:GPRINT C 
2,03,"C"-PMOVE 128,30:GPRINT C 
2,0 3 , " R " 

2110 PMOVE-80,60 :GPRINT [2,03,"a":P 
MOVE-5,260 : GPR INT C2,03,"B":GO 
TO 2388 


2120 B = 2*R1#S IN < if #A/2/180 > :B=INT(B + 
. 5) 

2130 C=R1-R3#C0S < n-# A/2/188) :C=INT<C 
+, 5 > 

2148 PRINT/P TAB < 4>; M B = ";B;" mm" 
2158 PRINT/P T A B < 4 >;"C = "jCj" mm" 
2160 HX=195#S IN <-r#A/2/180 > :HX=INT<H 
X + .5) :FX=—HX 

2178 H V = 195#C0S <tt*A/2/180) :HY=INT<H 
V + .5) :FV = HV 

2180 GX = 50#SIN<TiilfA/2/180) :GX=INT<GX 
+ .5) :EX = -GX 

2198 G V = 50#COS <irÜfA/2/180> ;GV=INT<GY 
+ .5) :E Y = G Y 

2208 PMOBE GR:PMOVE 200,-300:HSET 
2210 PLINE X 16,8,208 : PL INE ■ S£l : PCOLO 
RI 

2228 PCIRCLE 0,0,195,98-A1/2,90+A1/ 
2,18 

2238 IF B2=@ THEN PLINE 0,0,HX,HY:P 
COLOR 0 :GX = 0 :GY = 0 :GOTO 2290 
2248 PLINE EX,E Y : PMOVE HX,HY:PLINE 
GX , GY 

2258 PCIRCLE 0,0,58,98-A1/2,90+A1/2 
,10: PCOLOR 8 

2260 PLINE V.l- PCIRCLE 0,8,58,295,45 
0-A1/2,10 

2270 PHOME : PL INE V.l , 25 ,-43 : RL INE-10 
,8,8,5 : PL INE 25,-43 
2280 PCOLOR 3:PM0VE 25,-65 : GPRINT C 
2,83,"r" : PCOLOR 8 

2298 PLINE X10 : PCIRCLE 0,0,195,330, 
450-A1/2,10 

2300 PHOME; PL INE V. 1, 168 ,-97 : RL INE-1 
0,0,5,8:PL INE 168,-97 
2310 PCIRCLE 0,0,80,90-Al/2,90+Al/2 
, 10 

2328 PMOVE FX,F Y : PL I NE FX,255:RMOVE 
0,-5:RLINE 10,5,0,-10:PLINE F 
X , 250 

2338 PLINE HX,250 : RLINE-10,5,0,-10: 
PLINE HX,258 : PMOVE HX,HY:PLINE 
HX,255 

2348 PMOVE 0,195 : PL INE 255,195:RM0V 
E-5,0:RLINE-5,-18,18,0:PLINE 2 

58,195 

2358 PLINE 258,GY:RLINE-5,10,10,8 :P 
LINE 258,G V:PMOVE GX,G Y:PL INE 
255,GY 

2368 PCOLOR 3:PMOVE 268,188:GPRINT 
C 2,0 3 , "C":PMOVE-5,260:GPRI N T [ 
2,03,"B" 

2378 PMOVE 128,-65 :GPRINT C2,03,"R“ 

:PMOVE-5,80 : GPRINT C2,03,"a" 
2380 PMOVE-200,-230:HSET:PCOLOR 0:P 
MODE TN:RETURN 

2390 REM 3|E3(E3tE3fE3tElfE3tE3iC3(E4E3fE3j£3|E3iE4E$3t(3iE3(E3tE3ff3|(3tE 
2400 REM # UP-KEGEL MIT KREMPE * 
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2410 

2420 


-j 


430 


REH * * * * * * * * $ f $ g $ # ü 11 ;((jjj jjj i 
PR INT"«";Alf;»: MIT KREMPE <2 
)H" 

PRINT T A B < 6 ) ; " r - 


2440 PRINT TAB<6);" | EINGABEN 
2450 PRINT TAB (6); 11 L_i .. 


2460 

2470 


CURSOR 25,5:PR IN T"/ \D\D\D\ 

OH \BS I" 

CURSOR 22 ,10 : PR IN T "| BQ/ BQ /B/Q/ 


2480 CURSOR 22, 11 :PRINT"- 

— II 

2490 CURSOR 0,7:PR INT"a 1 le Laengena 
n-" : PR INT“gaben in ' mm' 1 ":PR in 
T TAB < 10 ) ; 11 — " 

2500 CURSOR 22,12 : PR INT"| 

I" 

2510 CURSOR 22,13 : PR IN T "| Da 


CO TO 2720 
2710 H B = V A L < X $ ) 

2720 CLS : UJRSOR 3 , 1 9 : P R IN T " = " ; H B ; " 
mm " 

2730 CURSOR 16,23 : PR INT"E INGABEN RI 
CH TI 6 < J/N > ?"; 

2748 GET K0f:IF X0f="J" THEN CLS:GO 
TO 2770 

2750 IF X0$ ="N" THEN CLS:GOTO 2548 
2760 GOTO 2748 

2770 CURSOR 8,23:PR INT"IST PLOTTER 
EINSATZ BEREIT CJ>?" ; 

2730 GET X 0 $: IF X0$O" J" GOTO 2 780 
2790 CLS:CONSOLE 2 ,3, 6 , 10 :CLS:CONSO 

2300 CURSOR 7,3 : PR INT"EINGABEN" 

2310 CURSOR 8,21: PR INT" r _ 


2520 CURSOR 22,14 : PR INT-- 

— II 

2530 PRINT" Da":PR INT" s": PR INT" r" 
:PRINT" f " : PR IN T" Hb":CONSOLE 
21 ,4 

2540 CURSOR 0,21: INPUT "AUSSENBURCH 
MESSER: Da Cmm 3 = ";X$ 

2558 DA=VAL<X$> :CLS-CURSOR 3,15:PRi 
NT SRC <19) : CURSOR 3,15:PRINT" = 
";DA j" mm" ' 

^560 CURSOR 23,4:PRINT"sBO\BDB\" 
2570 CURSOR 0,21: INPUT "WANDDICKE: 
s Crnrnl = " ; x $ 


2820 PRINT TAB < 8 ) " I BERECHNUNG & AH 
SDRUCK|" 

2830 PRINT TAB< 8 );"L_ 

- 1 '■ 


2840 

2858 


860 


878 


2830 


PR IN T/P"KEGELBERECHNUNG: mit K 
REMPE" ; PSK IP 1 : PMODE TS 
PRINT/P TAB(4);"folgende" :PSKI 
P-l: PMODE TN 

PRINT/P TAB < 6 );" EINGABEN ":PS 
KI P-l .-PMODE TS 

PRINT/P TAB(32);"wurden gemach 

t : " : PMODE TN :PSKIP 1 

PRINT/P TAB< 4).; "Da = ",BA.;" mm 


t ' J 30 S = VAL<X*> :CLS :CURSOR 3,16:PRIN 
T SPC <19) : CURSOR 3,16:PRINT" = 

";Sj" mm" 


2590 CURSOR 23,9 : PR INT"''- r" 

2600 CURSOR 8,21: INPUT "KREMPENRADI 
US: r Cmm] = ";X$ 


2610 R=VAL<X$> :CLS:CURSOR 3,17: PR IN 
T SPC<19):CURSOR 3,17:PRINT"= 
u R ; “ mm" 


2 


620 CURSOR 29,6 : PR INT" |BB IfBBQ I_ 

630 CURSOR 0,21 ; PRINT"KEGELWINKEL• 

'SPRINT TAB<3>,"WINKEL zulisch, 
n “ 


2640 PRINT TAB<7>;"KEGELACHSE und 
ANTELLINIE"; 

2650 CURSOR 13,21: INPUT " f [“3 = 

; X $ 

2660 F = VAL(X$):CLS:CURSOR 3,18 : P R 11 

J"= »» ; p • H O II 

2670 CURSOR 35,10:PRINT "1 Hb":CURS< 
R 35,11:PRINT" - " 

2680 CURSOR 10,23 : PR INT"ZAHLENWERT 
oder ein 9 eben 11 ; 

2690 CURSOR 0,21: INPUT "BORBHOEHE: 
Hb C mm] =' " X $ 

2700 IF X $ = "X" THEN HB=INT(30-F/3) : 


2890 PRINT/P TAB < 4 ) ; "s = 
2900 PRINT/P TAB(4);"r 
2910 PRINT/P TAB < 4 ) ;"f = 
2920 PRINT/P TAB<4)+"Hb = 

II 



mm" 

mm" 

Q II 


";HB;" 


mm 


2930 PSKIP 1: PMODE TS 
2940 PRINT/P TAB<4);"fo1gende":PSKI 
P-l: PMODE TN 

2 3._>8 PRINT/P TAB ( 6 );" err echne": 
PSK IP- 1 :PMODE TS 

2960 PRINT/P TAB(36);"Werte muessen 
im Unterprogramm "ZUSCHNITT'" 
29 70 PR IN T/P "e in gegeben werden: 11 :PM 
ODE TN: PSKIP 1 

2988 D1 = DA-2#(R + S) +2#<R+S/2) # C 0 S < F üf 
•ir/180) +2#X (R + S/ 2 ) *F /180 +HB) * 
S IN <Füf ir/180) 

2990 B1=INT(D1+.5) 

3600 PRINT/P TAB < 4) ; "Dl = ";D 1 ;" rnm 


3010 PRINT/P TAB<4);"s = " 

3020 PRINT/P TAB < 4 ) ;"f = >< 
3030 PSKIP 1:RE TURN 
3040 REM 
* 


i S j" mm" 
; F ; " * " 

######*# 


3050 REM # UP-KEGEL MIT AUSHALSUNG 
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Naturwissenschaft 


* 

3068 REM #### Ke 3|e ***** * * * * ** * ** * * * 
# 

3070 PRINT"«";Alf;": MIT AUSHALSUNG 
<3>B" 

3080 PRINT TABC6);" r -" 

3090 PRINT TAB CS)| EINGABEN | " 

3180 PRINT TAB <6) ; " l --i " 

3110 CURSOR 28,6 : PR IN T "(TR BB \B\B\B 
\" 

3120 CURSOR 24,11 : PR INT"/fl/B/B/ BB /" 

3130 CURSOR 24,12 :PR INT"-" 

3140 CURSOR 8,7 :PRINT"alle Lasngena 
n-" : PR INT"gaben in 'mm'!":PR IN 
T TAB < 10).;" — " 

3150 CURSOR 0,15 

3160 PRINT" Da" : PR IN T" s" .PRINT" r" 
:PRINT" f" :PRINT" Hb":CONSOLE 
21,4 

3170 CURSOR 28,3 :PRINT"Da" 

3180 CURSOR 28,4 : PR INT"f—1" 

3190 CURSOR 0,21: INPUT "AUSSENDURCH 
MESSER: Da CmmT = ",;Xf 
3200 DA = VAL<Xf) : CLS:CURSOR 3,15=PRI 
NT SPC<19>: CURSOR 3,15: PR INT" = 
";DA;" mm" 

3210 CURSOR 24,8 : PRINT"sBB\BBB\" 
3220 CURSOR 0,21: INPUT "WANDDICKE: 
s CrnrnT = " ; X f 

3230 S=VAL<Xf> :CLS:CURSOR 3,16:PRIN 
T SPC<19) ; CURSOR 3,16:PRINT" = 

";S;" mm" 

3240 CURSOR 26,6:PRINT"rBB^" 

3258 CURSOR 0,21: INPUT "KREMPENRADI 
US: r C mm] = ";Xf 

3260 R = VAL<Xf) : CLS : CURSOR 3,17:PRIN 
T SPC<19) : CURS0R 3,17 : PR INT" = 

";R ;" mm" 

3270 CURSOR 29,8:PRINT" IBB IfBBfl l_^" 
3280 CURSOR 0,21 :PRINT"KEGELWINKEL: 
" : PR INT TAB<3>;"HINKEL zwisehe 
n " 

3298 PRINT TAB<7>;"KEGELACHSE und M 
ANTELLINIE"; 

3380 CURSOR 13,21: INPUT f [ ■ ] = « 

;X* 

3310 F = VAL<Xf) : CLS:CURSOR 3,18:PRIN 

J »i = M . p . ii an 

3320 CURSOR 31,6 : PR IN T "~| Hb":CURSOR 
31,7:PR INT"“" 

3330 CURSOR 18,23 : PR INT"ZAHLENWERT 
oder 'X' eingeben".; 

3340 CURSOR 0,21: INPUT "BORDHOEHE: 
Hb C mm3 = ";X f 

3350 IF X$="X" THEN HB=INT(30-F/3): 

GOTO 3370 
3360 HB = VAL <Xf) 

3370 CLS:CURSOR 3,19:PRINT"= ";HB;" 


3388 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3488 

3490 

3500 

3518 

3520 

3530 

3540 

3558 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 


3640 

3650 

3660 

3670 

3680 


mm" 

CURSOR 16,23 : PRINT"EINGABEN RI 
CHTIG (J/N> ?"; 

GET X 0 f : IF X0f = "J" THEN CLS:GO 
TO 3420 

IF X0 f = "N" THEN CLS : G0 T0 3198 
GOTO 3390 

CURSOR 8,23 :PRINT" IST PLOTTER 
EINSATZ BEREIT <J>?"; 

GET X8f : IF X0fO"J" GOTO 3430 
CLS : CONSOLE 2,3,6,18:CLS:CONSO 

LE 

CURSOR 7,3: PRINT"EINGABEN" 
CURSOR 8,21:PR INT" r - 

II 

-j 

PRINT TAB C 8 ).;" | BERECHNUNG & AU 
SDRUCK | " 

PRINT TAB <8) ;" L - 

_i " 

PR IN T/P"KEGELBERECHNUNG: mit A 
USHALSUNG" : PSK IP l:PMODE TS 
PRINT/P TAB < 4);"folgende" :PSKI 
P-l.PMODE TN 

PRINT/P TAB < 6)j" EINGABEN ":PS 
K IP-1 : PMÖDE TS 

PRINT/P TAB<32);"wurden gemach 
t:" :PMODE TN:P S KIP 
PRINT/P TAB <4);"Da 

II 

PRINT/P TAB"<4) ; "s 
PRINT/P T AB(4);"r 
PRINT/P TAB(4);"f 
PRINT/P TAB(4);"Hb 

II 

PSKIP 1 : PMODE TS 
PRINT/P TAB(4);"fo lgende" :PSK I 
P~1 : PMODE TN 

PRINT/P TAB <6);" errechnete " : 
PSK IP-1 : PMODE TS 
PRINT/P TAB(36);"Werte muessen 
im Unterprogramm 'ZUSCHNITT'" 
PRINT/P"eingegeben werden:":PM 
ODE TN: PSKIP 1 

D2 = DA+2*R-2ÜKR + S/2) *COS < F # rr/18 
0)-2#< CR+S/2) ÜfifÜfF/180+HB) *SIN< 
FÜfir/130) 

D2=INT CD2 + .5) 

PRINT/P TAB (4) ; "D2 = " j D2 .; " mm 

II 

PRINT/P TAB<4);"s = ";3;" mm" 

PRINT/P T AB < 4) ;"f = " ; F ; " “" 
PSKIP 1 : RE TURN 


1 

= " .; DA ; " mm 

= ";S;" mm" 
= ";R;" mm" 

— »I . r* . ii o ii 
} r } 

= mm 
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Knebeln 


Kosten-Zauber 


Rechner: 
Programmname: 
Programmlänge: 
Programmiersprache; 


MZ-700/800 
Trick 17 
3921 Bytes 
BASIC 


Es werden bei diesem Spiel aus 32 
Karten 21 ausgewählt und auf drei 
Stapel verteilt. Nun müssen Sie 
sich eine Karte merken und angeben, 


in welchem Stapel sie enthalten 
ist. Darauf werden die Kartenstapel 
neu verteilt und sie müssen ange¬ 
ben, in welchem Stapel nun Ihre 
Karte enthalten ist. Nachdem sich 
das Ganze noch einmal wiederholt 
hat, sagt Ihnen der Computer, wel¬ 
che Karte sie sich gemerkt haben. 

Wolfgang Lenhardt 


10 REM TRICK 17 
20 REM FUER CHIP SPECIAL 
30 REM VON WÖLFGANG LENHARDT 
40 REM 

100 GOSUB1130 
110 PRINT 

120 REM**************************** 
#### 

130 REM*#***#* KARTEN SORTIEREN *** 
#### 

14@ REM**************************** 
#### 

150 CURSOR©,10:PRINT"Bitte warten,d 
ie Karten werden gemischt" 

160 DIMA$<21),B$<21):O=0 
170 F0RX=1TG21 

180 RESTORE: B=INT<<RND<1)#32)+1) 

190 FOR V-1TOB 

200 READA $ < X) :NEXTV 

218 IFX=1THEN250 

220 F0RXX=X-1T01STEP-1 

230 IFA*<X)=Af<XX>THEN180 

248 NEXTXX 

250 USR < 62 > : NEX TX 


260 

DATA* Ass 

,* 

Koen ig , * 

Dame 

t 


* Bube ,* 

10 

,* 9 

,* 

8 


,* 7 

} 




270 

DATA* Ass 

,♦ 

Koen i g , ♦ 

Dame 

> 


♦ Bube ,♦ 

10 

,♦ 9 


8 


7 

} 




280 

DATA* Ass 

> * 

Koen i g , * 

Dame 

> 


* Bube ,* 

10 

, * 9 

,* 

8 


7 

i 




290 

DATA* Ass 

, * 

Koen ig,* 

D a me 

> 


* Bube ,* 

10 

,* 9 

,* 

8 


,* 7 

i 




300 

PRINT"«" 





310 

REM####### 

###* 


***** 

*#* 


#### 

320 REM****** UMRANDUNG ZEICHNEN ** 
**** 

330 REM*********#**#*###i*#**##*##j|i 
**** 

340 F0RX=1T077 


350 FÖR V = 1 TOS 

360 CSETX,Y#4:NEXTV:MUSIC"C0" :NEXT 
X 

370 FORX=1TÖ32 

380 CSET0,X :CSET25,X:CSET51,X :CSET7 
7,X :MUSIC"G0" : NEX TX 
390 MUS IC"B0" : CURS0R2,1 : PR INT"Stape 
1 1" :CURS0R15,1:PR INT"Stape 1 2" 
:CURS0R28,1:PRINT"Stapel 3" 

400 REM**************************** 
#### 

410 REM****** KARTEN ABBILDEN ##### 
**** 

420 REM**************************** 
#*## 

430 W=3:FORX=1T07 

448 CURSOR2,W:PRINTA$<X) 

458 CURS0R15,W:PRINTA*<X+7> 

460 CURS0R28,W:PRINTAf<X+14) 

470 W=W+2:MUSIC"F0":NEXTX 
488 REM**************************** 
#### 

490 REM### EINGABE MIT FEHLERMELDUN 
G ** 

508 REM**************************** 
#**# 

510 CURSOR©,20: INPUT"In welchem Sta 
pel ist Ihre Karte '? " ; S $ : S = VAL < 
S*> :0=0+l 

520 IF(S>0> #<SC4> THEN545 
530 CURSORS,20:PR INT"K";CHR* <186) ; " 
nnen Sie nicht auf drei z";CHRf 
(187);"h1en 

548 FORX=1TO20 : MUS IC"C0RF0R" :NEXTX 
:0=0-l:GOTO510 
545 I F0=3 THEN980 
550 ONSGOTO590,720,850 

560 REM**************************** 
*##* 

570 REM*** WENN IM ERSTEN STAPEL *# 
*#** 

530 REM**************************** 
#### 

599 RESTORE 680 
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Knobeln 


600 FÖRK=1T021 

610 REABW 

628 B$<X)=A$(W) 

630 NEXTX 

640 FORX =1TÖ21 

650 A$<X)=Bf<:X> 

660 NEXTX 
670 6OTO430 

680 DA TA 15 , 18,21^,6,9,12,16,19,1,4 
,7, 10,13,17., 29,2,5,3,11, 14 

690 REM**************************** 
* ** * 

708 REM*** WENN IM ZWEITEM STAPEL * 
**** 

710 REM**************************** 
**** 

720 RESTORE 810 
730 FORX=1T021 
740 REABW 
750 B*<X>=A*<W> 

760 NEXTX 

770 FORX=1T021 

780 A$ <X> =B $ <X > 

790 NEXTX 
800 G0T0438 

810 DATAl,4, 7, 18,13,16,19,2,5,8,11, 
14,17,20,3,6,9,12,15/18,21 

820 REM**************************** 
**** 

830 REM*** WENN IM BRITTEN STAPEL * 
*#** 

340 REM**************************** 
**** 

850 RESTORE 940 
360 FÖRX=1T021 
870 REABW 
830 B$<X)=A$<W) 

890 NEXTX 

980 FÖRX=1T021 

910 A$(X>=B*<X> 

920 NEXTX 
938 GÖTO430 

940 DATA8,11,14,17,20,2,5,9,12,15,1 
8,21,3,6,10,13,16,19,1,4,7 

950 REM**************************** 
**** 

960 REM** GEDACHTE KARTE ABBILDEN * 
**** 

970 REM**************************** 
**** 

980 PRINT "BS" 

990 IFS=1THENV$=A*<4) 

1000 IFS = 2THENV$ = A$ dl) 

1010 IFS = 3THENV* = A*d8) 

1020 CURS0R18,10:PRINT"Ihre Karte i 
st : " 

1030 MUS IC"G0RRRRG0RRRG0RRG0RG0RG0R 
G0RG0RG0RG0R“ 


1040 CURS0R14,12-PRINTV* 

1050 CURSOR?,20 :PRINT"Noch ein Vers 
uch <J/N>?" 

1068 GE TG f 

1070 IFG*="J"THENCLR:GOTO110 

1080 IFGf="N"THENENB 

1090 GO TO 1060 

1100 REM*************************** 
***** 

1110 REM****** SPIELBESCHREIBUNG ** 

1120 REM*************************** 
***** 

1130 PRINT"»" 

1140 PRINT" TRICK 

1 7" 

1150 PRINT" ================ 

======»:MUSIC"CODOEOFOGOAOBO" 

1160 PRINT"DBOIch werde Ihnen nun e 
inen Zaubertrick" 

1170 PRINT"uorf";CHR*d73>;"hren.Si 
e suchen sich dazu aus den" 

1180 PRINT"drei Stapeln eine Karte 
und merken sie sich." 

1190 PRINT"Alles weitere erfahren s 
ie w";CHR*<187);"hrend des Sp 
ie les. " 

1200 CURS0R4,28:PRINT"Wenn gelesen 
dr";CHR$d73>;"cke eine Taste 

U 4 

1210 GETG* : IFG$=""THEN1210 

1220 RETURN 


************************************** 

* Suchen Sie ein ganz bestimmtes Programm 

* für Ihre Problemlösung? 

* 

★ 

* Wir bereiten laufend neue CHIP-Specials 
J vor. Wenn Sie uns Ihr Problem und den 

* Computer nennen, auf dem das Programm 

* geschrieben werden soll, haben Sie die 

* Chance, es in einer unserer nächsten 
t Ausgaben von CHIP-Special zu finden. 

£ über Ihren Vorschlag freut sich: 


* Die Redaktion CHIP-Special 

* Vogel-Verlag KG 

* Armin Schwarz 

* Schillerstr. 23a 


8000 München 2 


★ 
★ 
* 
★ 
* 
★ 
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Mini-Action 


Trefffer-Quote 


Rechner: 
Programmnarae: 
Prograramlänge: 
Programmiersprache: 


MZ-700/800 
Rakete 
3266 Bytes 
BASIC 


In diesem Spiel geht es darum, die 
Ufos, die entweder von links oder 
von rechts ins Bild fliegen, abzu¬ 
schießen. Auch bewegen sie sich in 


unterschiedlicher Höhe, was das 
Spiel ziemlich schwer werden läßt. 
Zum Feuern muß man die SPACE- Taste 
benutzen. 

Für jedes abgeschossene Ufo gibt es 
Punkte. Diese richten sich nach der 
Flughöhe. Hat man nach 15 Schuß 
mindestens 150 Punkte erreicht, 
erhält man ein Freispiel. 

Wolfgang Lenhardt 


1 REM RAKETE 

2 REM FUER CHIP SPECIAL 

3 REM VON WOLFGANG LENHARDT 

4 REM 

10 PRINT"»" 

20. v!="■■■■■ um ■ ■ ■■■■■ mH 



30 F0RX=1T03 

40 CURS0R3, 8 :PR INTVf : MUSIC-B1B1+B1 
":PRINT"»" 

58 FORO=1TO200:NEXTO:NEXTX 
60 PR INT"»BIBIS IE MUESSEN VERSUCHEN 
DIE UFO ^ S AB2U- SCHUESSEN." : PR 
INT 

78 PRINT"ZUM FEUERN SPACE-TASTE BEN 
UTZEN." : PR INT : PR INT 
80 PR INT"JE HOEHER DAS UFO UM SO ME 
HR PUNKTE.":PR INT 

90 PRINT"FREISPIEL BEI 150 PUNKTE ! 

!.!" 

100 PRINT:PR INT:PR INT:PR INT : PR INT :P 
RINT"ZUM SPIELBEGINN EINE TASTE 
DRUECKEN." 

110 GETK$ : IFX$=""THEN110 
120 PRINT"»" 

140 CURSOR©, 22PR INT “ 

m%m mm ": cur 

S 0 R 0,2 4 :PRI NT "PUNKTE : " ; 

150 CURSOR© , 0 : PR IN T 

mmmmmmmmmmmm®" 

160 F0RX= 1T022 

170 P0KE53248+D,166:P0KE53287+D,166 
180 D = D+40 : MUS IC ” C0" :NEXTX 
190 ZZ=15:F = 0 : p = 0 : GOSUB450 
192 USR (62> :CURS0R9,10:PR INT"ACH TUN 
G ES GEHT LOS ":FORX =1TO2000:NE 
HTX:CURSORS,10:PR INT" 


":USR < 62) 

280 REM============================ 

210 REM======UFO-BEWEGUNG========== 

220 REM============================ 

230 A = 53288 

240 V = 0: B=INT<RND<1)#15)+1 
258 BB=INT < R N D <1> 12)+1 
260 CC=53286+40#B 
270 IFBB=1THEN 290 
288 FORV = 1 T036 :G.OTO308 
290 FORY=36T01STEP-1 
300 POKECC-Y,199 :FORX=1TO10:NEXTX 
310 GOSUB340 :POKECC-Y,0: IFV=1THEN33 
0 

320 NEXTY 
330 GOTÖ240 

340 REM============================ 

358 REM = = = = = === = = = = SCHIJSS = = = === = = = = 

368 REM============================ 

370 GETX* : IFX$=""THENRETURN 
380 C=48:ZZ=ZZ-1 
398 F0RX=1T021 
400 P0KE54148-C,30 
410 POKE54143-C+40,0 
420 IFPEEK <54143-C-40) = 199THENGOTO6 
30 

438 C = C +40 

440 NEXTX : P0KE54148-C+48,8 

450 REM============================ 

460 REM === = = = = = = = P F EILDARSTELLUNG== 


480 I FZZ = 8 THEN520 

490 F0RZ=1T0ZZ:P0KE54147+2,30 

500 NEXTZ:P0KE54147+Z,166:MUSIC"F0" 
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Bauanleitung 


518 RETURN 

528 IFPC150THEN690 

530 PRINT"«" 

548 CURSOR 8, 7:PRINT"SIE HABEN ES 
GESCHAFFT." :F = 2 

550 CURSOR 13, 9:PRINT"EIN FREISPIEL 

ii 

560 CURSOR?,20:PR INT"BITTE EINE TAS 
TE DRUECKEN" : FORX=1TO200:NEXTX 
570 GE T V V $ 

580 IF F=2GÖSUB?30 

598 IF V V $ = "N"THENEND 

680 IF VV$="J"THENCLR:G0T0128 

610 CURSORS .. 20 : PR INT" 

II 

620 FORX=1TO200:NEXTX:GOTO560 


640 REM==========TREFFER========== 

658 REM=========================== 

660 IFPEEKC54148-C-40)=199THENUSR(6 
2) :B=16-B:P=P+D*2:V=1:CURSOR0, 

24 : PR INT"PUNKTE: ";P; 

670 POKE54148-C,0:H=54148-C-40 
680 G0T0458 

690 CURSORS,10:PRINT"SIE HABEN LEIB 
ER KEIN FREISPIEL ERREICHT 
780 CURSORS,12:PRINT"ES WAREN NUR"; 
Pi" PUNKTE. 

718 CURS0R18,14:PRINT"NEUES SPIEL < 
J/N> ?" 

720 G0T0568 

730 IFV V$C>" " THENCLRGOTO120 
740 RETURN 


A/D-Wandler 


Programmnamen: ADC-1 

ADC-2 

Programmlänge: 6000 Bytes 

Programmiersprache: BASIC/ML 

Rechner: MZ-800 


Einführung 

Alle Phänomene in der Natur sind 
analog, vernachlässigen wir die 
Quantentheorie. Das heißt, daß sie 
in einem bestimmten Bereich unend¬ 
lich viele Zwischenwerte annehmen 
können, während ihre Darstellung im 
Computer in digitaler Form erfolgen 
muß, weil sowohl Rechengenauig— 
keit, als auch Speicher begrenzt 
sind (außer bei Analog-Rechnern). 
Deshalb werden sogenannte Analog/- 
Digital-Wandler (ADC, engl, analog- 
to-digital Converter) benötigt, 
wenn ein Computer mit der Umwelt 
kommunizieren soll. 

Bis in die späten siebziger Jahre 
war die ADC-Technik ein sehr auf¬ 
wendiges und kostspieliges Unter¬ 
fangen und erforderte im Vergleich 
zum eigentlichen Rechner extrem 
viele Bauteile. Heute jedoch werden 
sehr preiswerte Wandler auf einem 
einzigen, integrierten Bauteil (IC, 
engl, integrated Circuit, inte¬ 
grierter Schaltkreis) angeboten. 
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Unterschiedliche Wandlungstechniken 

Es gibt drei Haupt-Prinzipien ana¬ 
loge Signale zu digitalisieren, die 
jeweils ihre Vor- und Nachteile , 
haben. 


1« Schrittweise Annäherung 

Bei dieser Umwandlungsmethode wird 
eine genau bekannte, von einem DAC 
(engl, digital—to-analog Converter, 
digital zu analog Wandler) erzeugte 
Spannung, mit der zu messenden 
Spannung verglichen und ihr dann im 
Rahmen der Auflösung angepaßt. 

Diese ADC-Technik bietet eine zu¬ 
friedenstellende Auflösung (8 bis 
16 Bit), eine sehr hohe Geschwin¬ 
digkeit (bis zu 150000 Messungen 
pro Sekunde) und ist äußerst preis¬ 
günstig (zum Beispiel: Ferranti ZN 
427 E-8, 67000 Messungen pro Sekun¬ 
de, 8-Bit-Auflösung, Preis zirka 35 
DM) . 

Der Hauptnachteil dieser Umwand¬ 
lungsart besteht darin, daß die zu 
messende Spannung während der Wand¬ 
lung im Rahmen der Auflösung kon¬ 
stant bleiben muß und so in vielen 
Fällen eine S/H-Schaltung (engl, 
sample and hold, Abtasten und Meß¬ 
wert halten) nötig wird. 
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In einer Abwandlung der schrittwei¬ 
sen Annäherung, der sogenannten 
Servotechnik, wird dieser Nachteil 
teilweise kompensiert. Zur Ansteu¬ 
erung des DAC wird hier ein Auf/Ab- 
Zähler verwendet, der die jeweilige 
Zählrichtung aus einem "größer 
als"- und einem "kleiner als”-Kom- 
perator erhält. Er übernimmt prak¬ 
tisch die Funktion der S/H-Schal- 
tung, durch seine Fähigkeit kleinen 
Meßwertschwankungen schnell zu fol¬ 
gen. 


2. Integration 

Bei dieser Technik wird ein Konden¬ 
sator ein- oder mehrmals durch die 
zu messende Spannung ge- oder ent¬ 
laden. Neben dem Ein-, Zwei- und 
dem Vierflanken-Verfahren gibt es 
noch die Spannungs/Frequenzwand¬ 
lung (VCO, engl, voltage controlled 
oscillator, spannungsgesteuerter 
Frequenzgenerator). 

Das Einflankenverfahren zeichnet 
sich durch seinen extrem einfachen 
und billigen Aufbau aus. Es er¬ 
reicht im Vergleich zu den Mehr¬ 
flankenverfahren zwar kürzere Um¬ 
wandlungszeiten, ist aber viel un¬ 
genauer , denn der Kondensator wird 
nur einmal mit der zu messenden 
Spannnung ge- oder entladen und der 
Wandler kann so keinerlei Urawand- 
lungsfehler erfassen und berück¬ 
sichtigen (z.B. Temperaturschwan¬ 
kungen des Integrationskondensa¬ 
tors) . 

Diese Fehler werden beim Zweiflan¬ 
kenverfahren (engl, dual slope) 
vermieden. Hier wird der Kondensa¬ 
tor erst mit der unbekannten Span¬ 
nung aufgeladen und dann mit einer 
bekannten wieder entladen. Das Ver¬ 
hältnis zwischen bekannter und un¬ 
bekannter Spannung ergibt sich aus 
dem Verhältnis der beiden Ladezei¬ 
ten. Das dua 1 -s 1 ope-Verfahren 
wird vor allem in Digitalvoltmetern 
eingesetzt, da hier in der Regel 
nicht hohe Geschwindigkeit, sondern 
hohe Genauigkeit und niedriger 
Preis gewünscht werden. 

Die Integrationstechnik bietet 
prinzipiell eine sehr gute Auf¬ 
lösung (bis 24 Bit) und hat den 
Vorteil, daß der Meßwert während 


der Messung schwanken kann. Der 
wesentliche Nachteil dieser Technik 
liegt in der begrenzten Geschwin¬ 
digkeit (maximal zirka 30000 Mes¬ 
sungen pro Sekunde). 

Die Vierflankentechnik leitet sich 
unmittelbar aus der Zweiflanken¬ 
technik ab. Vor jeder Messung wird 
hier zusätzlich eine Lade- und Ent¬ 
ladephase mit bekannten Werten 
durchgeführt, um gerätespezifische 
Fehler auszuschalten. 

Bei der VCO-Technik wird die Ein¬ 
gangsspannung in eine ihr propor¬ 
tionale Frequenz umgesetzt. Diese 
wird dann mit einem Zähler gemes¬ 
sen, wodurch man eine digitale 
Entsprechung erhält. Allerdings 
findet diese Technik praktisch nur 
bei der Informationsübertragung 
ihre Anwendung. 


3» Direkter Vergleich 

Bei dem Parallelverfahren (engl, 
flashing) wird das digitale Daten¬ 
wort in einem Schritt bestimmt, 
indem die zu messende Spannung 
einer Komperatorenkette zugeführt 
wird, bei der sich von Komperator 
zu Komperator der Schwellenwert um 
jeweils eine Quantisierungsstufe 
erhöht.' Die Grenze zwischen ge¬ 
setzten und nicht gesetzten Kompe- 
ratorausgängen wird durch einen 
Prioritätenkodierer zu einem ent¬ 
sprechendem Datenwort umgesetzt. 

Diese ADC-Technik ist mit Abstand 
die schnellste (maximal zirka 10 
Mio. Wandlungen pro Sekunde), er¬ 
fordert allerdings einen sehr 
großen Schaltungsaufwand (z.B. bei 
einer Auflösung von 10 Bit sind 
1024 Komperatoren und ein entspre¬ 
chender Prioritätenkodierer nötig). 

Das Flashing wird hauptsächlich bei 
der Echt-Zeit-Digitalisierung von 
Video-Signalen angewendet, weil 
dort große Datenmengen in kürzester 
Zeit umgewandelt werden müssen. 

Praktische Ausführung 

Von der Theorie in die Praxis. 

Es werden nun zwei unterschiedliche 
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ADC's mit ihren jeweiligen Vor- und 
Nachteilen betrachtet. 

1. Der integrierende Wandler 

Der erste Wandler arbeitet nach dem 
Einflankenverfahren. Um den Aufbau 
zu vereinfachen, wurde der Wandler 
als Widerstands-ADC konzipiert. 
Obwohl er so einfach wie möglich 
aufgebaut wurde, bietet er eine für 
viele Anwendungen ausreichende Ge¬ 
nauigkeit (3 Dezimalstellen). 

Der Wandler wird an die Drucker¬ 
schnittstelle und die externe Span- 
nugsversorgung für den Plotter an¬ 
geschlossen wobei nur die Drucker¬ 
leitungen DO und STA verwendet 
werden. 

Aufbau des Wandlers: 

Benötigte Teile: 

R i 10 kOhm 

R 2 1 kOhm 

R^ 500 kOhm 

R^ Potentiometer 100 kOhm 


Verstärkers und somit der Drucker¬ 
interface-Eingang STA auf 5 Volt. 
Die vier Inverter heben sich je¬ 
weils paarweise auf und sollen dem 
Computer nur als Schutz vor Über¬ 
spannungen, Kurzschlüssen etc. die¬ 
nen . 

Der Computer kann nun aus der Zeit, 
die zum Laden nötig war, den unbe¬ 
kannten Widerstand berechnen. 

Halbwertszeit des Kondensators: 
t = ln 2 * R * C 

Dieser Wandler soll Widerstände 
messen: 

==> R = t / (ln 2 » C) 

Der probeweise Betrieb des Wandlers 
ergab eine parabelähnliche Abwei¬ 
chungskurve . 

Daher bot sich die Möglichkeit an, 
eine "passende” Parabelfunktion zu 
bestimmen, und so den Fehler bei 
jeder Messung zu berücksichtigen. 

y = f Abw. (x) = a * x 2 + b * x + c 


C 220 Mikrofarad 

T BC 107 C 

IC 1 TCA 335 A 
IC 2 7 4LS04 

Lochrasterplatine zirka 5 x 10 cm 
26 poliger Platinenstecker 
Klinkenstecker 5 mm 
2 Krokodilklemmen 


Funktionsweise: 


Zuerst wird der Kondensator entla¬ 
den, indem der Druckerinterface- 
Ausgang DO für eine gewisse Zeit 
auf 5 Volt geht, der Transistor 
durchsteuert und so den Kondensator 
kurzschließt (R 2 dient dabei als 
Vorwiderstand, damit der Transistor 
nicht übersteuert). Dann wird der 
Kondensator mit einer konstanten 
Spannung von 5 Volt durch den unbe¬ 


kannten Widerstand R 


U 


und den 


eingebauten Schutzwiderstand R-j 
geladen. Sobald der Kondensator 
eine Spannung von 2,5 Volt er¬ 
reicht, geht der Ausgang des als 
Komperator geschalteten Operations- 


Die Parameter^ a, b und c lassen 
sich nun mit Hilfe von drei Punk¬ 
ten bestimmen. Der x-Wert eines 
solchen Punktes muß dem Wider¬ 
stands-Wert entsprechen, den der 
Computer aus der Ladezeit ermit¬ 
telt. Der y-Wert ergibt sich durch 
die Abweichung zum tatsächlichen 
Widerstand, 


P (10260/ 440) 

"bei 10260 Ohm: Abweichung 440 Ohm” 
Q (35870/2170) 

R (70910/5710) 


daraus folgt: a 

b 

c 


5.565 * IO - ? 
4.174 * 10“ 2 
-46.82 


Mit Hilfe dieser Parabel lassen 
sich die Abweichungen des Wandlers 
erheblich reduzieren, indem Um¬ 
wandlungergebnis minus fabw.^® - 
wandlungsergebnis) als Endergebnis 
verwendet wird. 

Diese Abweichungen resultieren 
hauptsächlich aus den Verlust¬ 
strömen, die während der Ladezeit 
über den Komperator und den Tran- 
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Bild 1, Aufbau des ersten Wandlers 
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Bild 2, Abweichngskurve 



60 


Sharp MZ 700/800 












































































Bauanleitung 


sistor abfließen. 

Der Elektrolytkondensator weist 
eine erhebliche Temperaturempfind¬ 
lichkeit auf und so beträgt die 
Abweichung des Wandlers pro Grad 
Celsius zirka drei Prozent des 
Meßwertes. Diesen Fehler kann man 
durch regelmäßiges Einmessen mit 
einem bekannten Widerstand vermei¬ 
den . 

Das Programm ADC-1 führt, nachdem 
es gestartet wurde, zuerst ein 
Einmessen (Dauer zirka 2 Minuten) 
durch und stellt danach jedes Wand¬ 
lungsergebnis auf dem Bildschirm 
dar. Nach jeweils vierzig Messungen 
muß man die beiden Wandlerausgänge 
verbinden, damit der Wandler erneut 
automatisch eingemessen werden kann 
Dauer zirka 20 Sekunden). Der 
bekannte Widerstand ist dabei der 
Schutzwiderstand R-] 


2. Der W andler m it schritt w eiser 
Annäherung 

Der zweite Wandler basiert auf der 
Technik der schrittweisen Annäher¬ 
ung und wurde mit einem IC reali¬ 
siert, der praktisch den vollstän¬ 
digen ADC enthält (Ferranti ZN 427 
E-8) . 

Der Anschluß dieses Wandlers er¬ 
folgt an den beiden Joystick-Ports, 
denen auch die nötige Versorgungs¬ 
spannung entnommen wird. 


Aufbau des Wandlers: 


Benötigte Teile: 

?. 1 390 Ohm 
P.o 82 kOhm 


1 Mikrofarad (Elko) 
0,1 Mikrofarad 
0,33 Mikrofarad 


Ferranti ZN 427 E-8 
MC 7905 


.ochrasterplatine zirka 7 x 7 cm 
1 Joystickstecker (9 polig) 

1 Krokodilklemmen 

Batterieklipp für 9 Volt Batterie 

: Volt Batterie 


Der Chip benötigt zusätzlich zu der 
normalen 5 Volt Versorgungsspannung 
eine Hilfsspannung von -5 Volt, die 
der MZ-800 leider nicht liefern 
kann. Da der Stromfluß der Hilfs¬ 
spannung sehr gering ist (zirka 3 
mA), wurde eine 9-Volt-Batterie und 
ein -5 Volt Spannungsregler ver¬ 
wendet, um sie zu erzeugen. 

Um den Aufbau so einfach wie 
möglich zu machen, wurde auf Takt¬ 
generator und jegliche Steuerlogik 
verzichtet. Diese Aufgaben über¬ 
nimmt der MZ-800 mit einem Maschi¬ 
nenprogramm. 

Das Programm erzeugt zuerst einen 
Impuls am SC-Eingang (engl. Start 
conversion, Umwandlung starten) 
des IC's und gibt dann 8 Taktirapul- 
se aus. Nun steht das Ergebnis der 
Wandlung an den Ausgängen des IC's 
an und kann vom Computer eingelesen 
werden. 

Obwohl die Rechenleistung des MZ- 
800 mit dem Programm in Maschinen¬ 
sprache voll ausgenutzt wird, er¬ 
reicht der ADC seine Maximalge¬ 
schwindigkeit von zirka 67000 Wand¬ 
lungen pro Sekunde nicht, sondern 
"nur" rund 6000. 

Die Auflösung des Wandlers beträgt 
8 Bit und reicht von 0 bis 2,55 
Volt. 

Das Programm ADC-2 speichert nach 
einem Startbefehl, zirka 1,2 Se¬ 
kunden lang, alle anfallenden Meß¬ 
daten und stellt diese dann in Dia¬ 
grammform dar. Der Anwender kann 
den anzuzeigenden Zeitraum frei 
bestimmen, indem er die Start- und 
die Endzeit des ihn interessieren¬ 
den Bereiches eingibt. 

Falls die Bereichseingabe eine 
größere Genauigkeit fordert, als 
die gespeicherten Wandlungsergeb¬ 
nisse liefern können, verlangt das 
Programm eine neue Eingabe. Wenn 
sowohl Start- als auch Endzeit als 
Null angegeben werden, wird eine 
neue Messung gestartet. 


Vor- und Nachteile der beiden Wand- 
ler 


Vorteile des integrierenden Wand¬ 
lers : 
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nima.1 @r Preis 

I fnJchlSft Schaltun S s aufwand 

Puter reaUsSr 30 " Jedem Co "- 

- Uioht*v Pl ' 0 8‘’ammieraufwand 

- gute AuflSaung dUOhe Srtai ^“eise 

l«rsf Cl1 * dSS in tegrierenden Wand- 

- hohrn° hI ’ änkter Meßbereich 

- Ä bmwandlungsZeiten 

häufiges^Einrae3sen^nötig° hlIed ^ 

weiser Annäherung^ 6rS mit Schritt_ 

günstiger Preis 

- fehr n ho e h ^ehai tungsaufwand 
sehr hohe Umwandlungsgeschwindig- 

Anschluß an viplA n ~ 
möglich 1 le Computer 

"* praktisch k p i n o t ^ 

Pflndlichkelt Temperaturen!- 


- gute Auflösung 

5swiderstand (io 

Nachteile dp^ v«tuii 

weiser «S---*” ler3 mit schritt- 


benötigt negative Hilfs- 


Wandler 
Spannung 

c " Ehrend der Messung 

■E- -i «rs falls exakte 

°werden 

a IV großer Programmieraufwand 


Zusammenfassun g 


möchtet 

Wandler in? r <•" 
möchte und die Umwanm Einsetzen 
Öigkelt und"'die Ge n aütf k g . eS , 0, ' Wln - 

Rolle spielen j ,f k U eine 

schrittweiser itM Wandl en mit 
geeignet. Annäherung besser 

"Happy Converting jjjn 

ihies B. Schupp 


M S™ ?UER°c S H / tr^p T ^t s K L 0NVERTER 1 

40 ™ "»« > Ä- 

150 IN IT " CR T : M3 " : / 

168 LIMIT 1 $E 000 rm y lnitial isieren 

DDTM^ eiCher rssery ieren 
1?8 PRINT "ABC Programm" 

16ö bVMBOL 34 ign u Rj+ , 

5.0 J Bitte warten", 6 , 

190 <3 0 S U B 10040 ; ✓ 

200 ÖOSUB 30040°^ 06 er zeugen 

„ üp Einmessen 
1. ^ CLS t PRINT 11 A o 

228 S0H0g B ^ 0M25E9 " ; " r «S«W9. ; "RS 

230 MUS IC WA IT 

240 FOR «1=1 TO 40 : ' 

250 ÖOSUB 20040^^ 

260 R = R- 9 8 2 r * U ? 3 durchfuehren 

270 IF R<S 9 tHEN t R=0 S<!h ' JtZ “ iderEta " d 
280 R=R/100@ . ✓ 


Ki1o-Ohm 

RV**STR*<I NT(R)) . RN = R- i m T (■ R) 

: Ergebnis auf 3 stellen 

RN^STRUINT(RN*10.m; 3 -LEN<RV $ )) 

310 R$=RV$+".» +RN$ 

240 BON C0,030,40,619,1S>9, 0 . , 

BEEP 

OUT@ $FF ,0 ; 7 

Wandlung beenden 

sv^bol 

rzsch 1 iessen ",2 2 tte ku 

SVMBOL 152,130,"und dann CR < 
ecken.", 2,2 R dru 

20 T H * ‘ IF A$ < : >CHRf <13> THEN 4 


290 

300 


330 

340 

350 

360 

370 

330 

390 

400 

410 

420 


430 

440 

450 


BEEP 

BON C 0 , 0 } 0 ,100,619 ,199 g 
üOSUB 35040 ,iJ 


460 


UP Nach messen 
goto 240 
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10080 REM *-*-*-*-*-*-*-*-*-*-*- 

|j| ^ j|j j|| j|| ]{( ~ _ |||_j|| 

10010 REM I Unterprogramm "Mes 


10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 


sroutine erzeugen" I 

REM *-*-*-*-*-*-*-*-*-*-*- 

REM 

' LD ft,1 

:DATA 3E,01 

' OUT <FF > , A 

:DA TA D3,FF 
' LD B , FF 

•DATA 06,FF 

LD DE,-1 
:DA TA 11,FE,FF 
HS LD HL,FFFF 

:DA TA 21,FF,FF 
' CÖNT IN A,< FE) 

•DATA DE,FE 
' BIT A,1 

: DA T A CB,4F 

' JP 2,CGEL 

:DA TA CA,18,FD 
' ADD HL,DE 

;DA TA ED,5A 

JP C,CON T 

: DA TA DA,08,FD 
' DEC B 

:DA TA 05 

x JP HZ,HS 

:DATA D2,05,FD 
'' CGEL LD (FE00) , HL 

: DA TA ED,63,00,FE 
' LD A,B 

:DATA 78 

x LD < FE82> , A 

:DATA 32,02,FE 
' RET 

:DATA C9 

FOR I = $FCFC TO *FD20 : ' 

ML-Routine in den Speiche 


r 

10218 READ A* 


schreiben 


10220 POKE I,VAL<"t"+A$> 

18230 NEXT I 
10240 RETURN 

15000 REM *-*-*-*-*-*-*-#-*-*-*- 

-*-* 

15018 REM I Unterprogramm "Mes 

swert aus lesen und umrechnen" 


I 


15020 REM *-*-*-*-*-*-*-*-*-*-#- 
-*-* 

15030 REM 

15040 X1=255-PEEK($FE08) 


15058 X2=<255-PEEK<*FE01>>*256 
15068 X3 =<255-PEEK($FE02))*65536 
15070 T=(X1+X2+X3)/65736.08 
15080 R=T/<LN<2>*.000235) 

15090 GOSUB 25040 : ' 

UP Fehlerkorrektur 
15100 RETURN 

28000 REM *-*-*-*-*-*-*-*-*-*-*- 

20010 REM I Unterprogramm "Mes 

sung durchfuehren I 
20820 REM *-*-*-*-*-*-*-*-*-*-*- 

20030 REM 

20040 OUT® $FF,0 : ' 

Kondensator entladen 
20050 FOR 1=1 TO 1500 : NEXT I 

28060 USR <$FCFC) : ' 

Entladen beenden und Messu 
n g starten 

20070 GOSUB 15040 : ' 

UP Messwert auslesen und u 
mrechnen 
20080 RETURN 

25080 REM *-*-*-*-*-*-*-*-*-*-*- 

25010 REM I Unterprogramm "Feh 

lerkorrektur" I 

25020 REM *-*-*-*-*-*-*-*-*-*-*- 

25038 REM 

25040 F=5.5645546E-07*Rt2+4.1739011 
E-02*R-46.813984 
25050 R = R-F :R = R*FT : ' 

Abweichungen korrigieren 
25068 RETURN 

30000 REM *-*-*-*-*-*-*-*-*-*-*- 

30018 REM I Unterprogramm "Ein 

messen" I 

30020 REM *-*-*-*-*-*-*-*-*-*-*- 

30030 REM 

30040 F T=1 : RG = 0 : ' 

Grundwerte 

38050 FOR 11=1 TO 15 : ' 

Wandler "warmlauten lassen 

ii 

30060 GOSUB 20840 : ' 

UP Messung durchfuehren 
30070 FOR 1=1 TO 125 : NEXT I 

30880 NEXT II 
30090 FOR 11=1 IO 10 : ^ 

10 Messungen durchfuehren 
38100 GOSUB 20048 : ' 

UP Messung durchfuehren 
38110 FOR 1=1 TO 125 : NEXT I 

30120 RG=RG+R 
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30138 NEXT II 
30140 R = R G /10 ; x 

Durchschnitt der Messwerte 
ermitteln 
30150 F T = 9S20/R 
30160 RETURN 
35000 

35010 REM i 11 ■ 

Unterprogramm "Nat- 
hmessen" j 
35320 REN 

* * * 

35030 REM 

35040 FT=1 : RG = g . x 

Grundwerte 

35050 FOR Il=i TO 3 : •' 

35060 l 3OSUB M 20040 9en - dUrChfUehren 

35073 POR^^ ITz^TEtTr" 
35030 RG = RG +R EXT 1 

35090 NEXT II 
35100 R=r G/3 . x 

Durchschnitt der Messwerte 
ermitteln 
35110 FT = 9820x'R 
35120 RETURN 

?S ™ VON th ies b. schupp 

150 IN IT "CR T : M3 " : ' 

160 LIMIT B ,£iV h : r ' m initUliSi —o 

170 SVMBOL S 34^00 r ''BU, e r ier r 

5 0 ,iH0, Bitte warten", 6 x 

130 GOSUB 10040 ; -- 
190 

200 MUS'IC WA IT 
210 CLS 

220 SVMBOL 44 100 

• ndruck»?s“!i " SUn9 mt TaSt 

238 f VMB0L 220,130,"starten <" 3 g 

240 GET A$ : IF A$="" THEN 230 

^0,030,40,639,199,0*" 

260 USR <$BE00) : 7 

270 T 1 = B "^nyurohfuehren 

p Grundwerte fuer die X-Achs 

280 GOSUB 20040 : 7 

UP Achsen zeichnen 
290 GOSUB 30040 : / 


300 CURSOR P 0 M r SW * rte 6 in2e ichnen 

310 PRINT E "B:ttI" deS 2eitraumes 
320 PRINT "Zeitraum" 

•->30 PRINT ‘eingeben." 

340 CURSOR 0,9 
350 INPUT "Von ";T 1 
368 INPUT "bis "•T2 

370 (I2 - 

390 CU F RSOR 1 : Tr 2 " 0 ™ EN 210 
400 PRINT SPACEf( 9 ) 

410 PRINT SPACEi( 9 ) 

420 PRINT SPACE $( 9 ) 

430 GOTO 340 

10000 

10013 REM , Unterprogramm »Nesero 
« u 1 ns srzsuQsn 11 l 
13020 «h 

10030 REM 
10040 


10050 ' 

10060 " 

10070 ' 

10080 ' 

10090 ' 

10100 ' 

10110 ' 

10120 ' 

10130 ' 

10140 ' LOOP SET 5 ,A 

; DATA cb,ef 

10150 ' 

10160 ' 

10170 '• 

10180 ' 


LD 

; DATA 21,00,E0 

HL,E 000 

LD 

; DATA 01,FF,1F 

BC,1FFF 

MLOOP PUSH 

•DATA C 5 

BC 

PUSH 

: DA TA E5 

HL 

IN 

•DATA BB,D 0 

A,(B 0 H) 

RES 

: DATA CB,A 7 

4, A 

OUT 

DATA D3,B0 

<D0H),A 

SET 

DATA CB,E7 

4 , A 

OUT 

DATA D3,D0 

<D0H>,A 

LD 

DATA 06,09 

B, 9 


_, 0UT <D0H),A 

: DATA B3,B0 

RES 5 ,A 

•DATA CB,AF 

(D0H) , A 

: DATA D3,D0 ’ 


DJNZ LOOP 
: DhTA 10,F5 
10190 ' ABFR 


10200 ' 


IN 

•DATA BB,F 0 

AND 0 F 
; DATA E6,0F 


A, < F 0 H) 
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10210 


: BA TA 

47 

LB 

B, A 

10220 




IN 

A, < F1H > 



: DATA 

BB,F1 


10230 

/ 



ANB 

0F 



:BATA 

E6 

, 0F 


10240 


: BATA 

07 

RLCA 


10250 

/ 

•BATA 

07 

RLCA 


10268 

/ 

: BATA 

07 

RLCA 


10270 

/ 

: BATA 

07 

RLCA 


10280 

/ 

: BA TA 

80 

ABB 

A , B 

10290 


:BATA 

El 

POP 

HL 

10300 

/ 

: BA TA 

CI 

POP 

BC 

10310 

/ 

: BA TA 

77 

LB 

< HL) , A 

10320 

/ 

:BATA 

23 

INC 

HL 

10330 

/ 

DATA 

0B 

BEC 

BC 

10348 


BATA 

78 

LD 

A , B 

10350 


BATA 

Bl 

OR 

C 

18360 


BATA 

C2, 

JP 

06 , BF 

N2,MLOOP 

10378 

/ 

BATA 

C9 

RET 



10388 FOR I = $DF80 TO $BF36 : ' 

ML-Routine in den Speich 
er 

10339 REAB A* : ' 

schreitoen 

10408 POKE I,VAL <"$"+A *) 

10410 NEXT I 
10420 RETURN 
20800 REM 

-*—*—*—»—*—* 

^0010 REM I Unterprogramm "Achsen 
Zeichen" I 

20020 REM #—äf£—ä(£—jj(— j(e— äjE—jjj—jjE—äjE—jK 

-*-*-*-*-*-# 

20030 REM 

20048 CLS 
20050 S T=.2 : ' 

Abstand der Skalierung 
20060 DI = T2-T1 
20070 IF BI<1.2 THEN ST=.l 
20080 IF BK.6 THEN ST=.05 
20030 IF BK. 3 THEN ST=.02 
20100 IF BK.15 THEN ST=.01 
20110 LINE 100., 0,100,183 , 633,183 


20120 

20130 

20140 

20150 

20160 

20170 

20180 

20130 

20200 

20210 

20220 

20230 

20240 

20250 

20260 

20278 

20280 

20230 

20300 
3000 0 

30010 

30020 

38030 

30040 

30050 

30060 

30070 

30080 

30030 

30100 

30110 


FOR I =.2 TO 2 STEP .2 : ' 

Skalierung der Achsen 
LINE 98,130-1*100,102,130-1*1 
00 

A$=STR$< I) IF Kl THEN Af = " 
0" + A f 

IF INK I *100) /100= INT < D THEN 
AI=A*+".0" 

SVMBOL 70,187-1*100,AI,1,1,0 
NEXT I 

LINE 97,3,100,0,103,3 

LINE 636,186,639,189,636,192 
FOR I = T1+S T TO T 2 STEP ST 
PH=100 + <I-Ti)*<540/< T2-TI)) 

IF PH>610 THEN 20280 
LINE PH,187,PH,191 
A t = S TR * < I) : IF Kl THEN A$=" 
0" +A$ 

IF INT < I *100)/100= INT< I) THEN 
A$=A$+".0" 

SVMBOL PH-11,192,A$,1,1,0 
NEXT I 

CURSOR 4,0 : PRINT "U UV3" 

CURSOR 72,24 : PRINT " t Cs3 

II . 

RETURN 

REM *-*-*-*-*-#-#_ J)j_ jjj 

-*-*-*-*-*- 3(e -ä*-*-*-# 

REM I Unterprogramm "Messwe 
rte einzeichnen" | 

REM *-*-*-*-*-*- 

-*-*-*-*-*-*-*_#_#_# 

REM 

ST=(T2-Tl)/540 : H2=0 

FOR I=T1+1E-10 TO T2 STEP ST 

AB=$E0 00 + 8192/<1.72/1) 

IF I = T1 + IE-10 THEN SET 100 + HZ 
,189-PEEK<AB> : GOTO 30090 
LINE 99+H2,189-PEEK <AA) ,100+H 
Z,189-PEEK <AB) 

H2=H2+1 : AA=AB 

NEXT I 

RETURN 


********* 

BEIM ABTIPPEN ARBEIT SPAREN 
können Sie sich, wenn Sie mit 
der Anforderungskarte am Heft¬ 
ende die Programme auf Daten¬ 
träger anfordern. 

Anwenden und auf ihre Belange 
abändern lassen sich diese 
Programme allerdings nur mit 
Hilfe dieser CHIP-SPECIAL- 
Ausgabe. 

fr*********** 


** 

* 

* 

* 

* 

* 

* 

* 

' * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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MZ-CAD, der Zeichencompuler 


Rechner: 
Pnogrammname: 
Programmlänge: 
Programmiersprache: 


MZ-800 
MZ-CAD 
38000 Bytes 
BASIC 


Den ersten Preis gewann dieses Pro¬ 
gramm im gemeinsam von Sharp Elec¬ 
tronics (Europe) GmbH und der Re- 
daktion CHIP-SPECIAL durchgeführten 
Wettbewerb "Sharp User-Club des 
Jahres 1986". 

MZ-CAD macht aus Ihrem MZ-800 einen 
Zeichencomputer und das sogar in 
der Grundausstattung mit einem 
Floppy-Laufwerk (falls vorhanden 
nutzt MZ-CAD allerdings auch 

Se i b f^ tändi ? Video-RAM Erweiterung 
und RAM-Disk). K 

Das Programm setzt sich aus sechs 
Modulen zusammen: 

Menüprogramm 

CAD-Programm 

Bauteileditor 

Generator 

Transcad 

Btl.Delete 

Diese Teile müssen einzeln eingege¬ 
ben und jeweils abgespeichert wer¬ 
den (alle auf eine Diskette). 

Nach dem Laden des BASIC muß das 
Programm mit RUN "FD 1:MENUE" ge- 

ES scheint das 

i i telbild mit dem Hauptmenü, von 
dem aus in die verschiedenen Module 
verzweigt werden kann. 


Funktion anwählen kann, die dann 
mit der CR-Taste ausgeführt wird. 

Pie einzelnen Funktionen 
MOVE 

Bewegen des Cursors mit den 
tasten. 

Folgende Geschwindigkeiten 
per Tastendruck eingestellt 
(s) schnell bewegen 
(L) langsam bewegen 
(R) in Rasterschritten 


Cursor¬ 
können 
werden: 


bewegen 


MZ-CAD 

Nach dem Aufruf von MZ-CAD durch 
das Hauptraenü muß man zuerst das 
entsprechende Lade- bzw. Speicher¬ 
medium angeben (Floppy/RAM-Disk). 
Danach kann entschieden werden, ob 
die Eingaben mitgespeichert werden 
sollen.(falls ja muß man die Zeich- 
nung mit einer Nummer versehen) 

^er Bildschirm gascht 
und das Arbeitsfeld erscheint. Das 
große Feld ist die Zeichenfläche? 
I* de 5; unteren Zeile erscheinen 
evt. Meldungen oder es werden Ein- 
gaben erwartet. Rechts ist die 
Menüleiste, bei der man mit den 
ursortasten die entsprechende 
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LINE 

Zeichnen von Linienzügen. 

Die aktuelle Cursorposition ist der 
Anfangspunkt der Linie, der End¬ 
punkt wird mit den Cursortasten 
angefahren und mit der Space-Taste 
bestätigt. Danach kann mit der CR- 

M ^ Ü zurück gesprungen, 
mit N die Eingabe gelöscht oder 
mit den Cursortasten weitergezeich¬ 
net werden. 

BOX 

Zeichnen von Kästen. 

Die aktuelle Cursorposition ist der 
erste Eckpunkt des Kastens. Dann 

und ^rR«. ZWe i t ® , Ech P unkt angefahren 
und "CR" gedruckt werden. 

CIRCLE 

Zeichnen von Kreisen, Ellipsen und 
entsprechenden Segmenten. 

Die aktuelle Cursorposition ist der 
Mittelpunkt. Den Radius horizontal 
und vertikal anfahren und jeweils 
die CR-Taste drücken. Dann muß man 
xn der unteren Zeile Anfangs- und 
Endwinkel angeben, Segment anwählen 

jjf, ! u . ch nicht > und schließlich 
"CR" drucken. 


von geschlossenen Flä- 


PAINT 
Ausfüllen 
chen. 

Cursor in die auszufüllende Fläche 
bringen und "CR" drücken. In der 
unten rechts erscheinenden Farbta- 
belle mit den Cursortasten die 

e ?5 S ,?^ echende Farbe anwählen und 
bes tätigen (nur bei Video- 
RAM-Erweiterung). 

Sharo MZ 700 800 
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SET 

An der momentanen Cursorposition 
wird ein Punkt gesetzt. 

MANU. 

Manuelles Zeichnen mit Hilfe der 
Cursortasten. 

BEMAß. 

Bemaßen von horizontalen und verti¬ 
kalen Längen. 

Die Bemaßungspunkte anfahren, je¬ 
weils "CR" drücken und dann die 
entsprechende Richtung angeben 
(z.B. ”0” = oben) . 

B.TEIL 

Laden eines mit dem Bauteileditor 
erstellten Bauteiles. 

Nach der Definition des Referenz¬ 
punktes (siehe auch Bauteileditor) 
muß der Zoomfaktor eigegeben werden 
(z.B. 0.5 entspricht halber Größe, 

2 entspricht doppelter Größe). Da¬ 
nach kann mit den Cursortasten ein 
Bauteil ausgewählt werden. 

TEXT 

Einfügen von Text. 

Cursor an die gewünschte Schreib¬ 
stelle bringen, die Fragen in der 
unteren Zeile beantworten und je¬ 
weils "CR” drücken. Danach er¬ 
scheint der Cursor und es kann Text 
eigegeben werden (Korrektur mit der 
"DEL"-Taste). 

COLOR 

Einstellen der Zeichenfarbe. 

In dem rechts unten neu entstande¬ 
nen Menü kann man mit den Cursorta¬ 
sten die gewünscht Farbe anwählen 
und mit "CR” bestätigen. 

PAL 

Ändern der Farbeistellung. 

Im Farbauswahlfeld ist die zu 
ändernde Farbe anzuwählen und dann 
in der unteren Zeile entsprechend 
zu ändern. 

BORDER 

Randfarbe des Bildes ändern. 

Mit den Cursortasten in der unteren 
Zeile die neue Randfarbe anwählen 
und "CR" drücken. 

RASTER 

Bildschirm mit einem Raster unter¬ 
legen . 
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Eingabe des Rasterabstandes in der 
unteren Zeile, Auswahl der Farbe, 
Eingabe des Maßstabes (für evt. 
Bemaßungen). 

HCOPY 

Gibt des Bildschirminhalt auf einem 
Centronicsdrucker aus. 

CLS 

Löscht den Bildschirm. 

LÖSCH. 

An der aktuellen Cursorposition 
erscheint ein "Radiergummi". 

Mit den Cursortasten kann nun "ra¬ 
diert" werden. Beenden des 
Löschmodus mit der CR-Taste. 

LOAD 

Vorhandene Zeichnung laden. 

Zurück ins Menü gelangt man mit der 
Space-Taste. 

ENDE 

Beenden des Zeichnens. 
Programmgenerator 

.4 

Mit diesem Modul können aus den mit 
MZ-CAD erstellten Zeichnungsdateien 
eigenständig lauffähige Programme 
erzeugt werden, die man dann in 
andere, eigene Programm einbinden 
kann. 

Nach der Installation (wie bei MZ- 
CAD) muß angegeben werden, ab wel¬ 
cher Zeilennummer das Programm ge¬ 
neriert werden soll. Danach wird 
auf dem bei der Installation einge¬ 
stellten Speichermedium eine ASCII- 
Datei erzeugt, die mit dem Befehl 
RUN "CAD.ASCII/nnnn" geladen und 
gestartet werden kann. 

Es können auch mehrere Zeichnungs¬ 
dateien hintereinander generiert 
werden. Wird auf die Frage "Weiter 
(J/N)" ein "N" eingetippt, wird die 
erzeugte ASCII-Datei sofort gestar¬ 
tet und kann danach als normales 
BASIC-File gespeichert werden. 

Transcad 

Transcad ermöglicht das übertragen 
von Zeichnungsdateien zwischen den 
verschiedenen Speichermedien (z.B. 
Floppy-Disk nach RAM-Disk). 
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Bauteileditor 

Mit diesem Programmteil können oft 
gebrauchte Zeichnungsteile erstellt 
werden. 

Die schon vorhandenen Bauteile wer¬ 
den rechts angezeigt. Dann wird der 
Name des zu erstellenden Bauteiles 
eingegeben. Nach der Definition des 


Bezugspunktes kann das jeweilige 
Bauteil gezeichnet werden (Bedie¬ 
nung wie bei MZ-CAD). 

Btl.Delete 

Mit diesem Modul lassen sich nicht 
mehr benötigte Bauteile löschen. 


Klaus Thiele 



100 / M2 800 Bautei1-Editor Version 
2.3 

110 ' <C) Klaus Thiele 


128 

138 


140 

159 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 


IF PEEK($ 1099)=0 IN I T"CRT : M3" •M 
0=1 : ELSE INIT"CRT:M4" :PAL1,12 P 
AL2,11:MO = 3 

BIM B $ <19) ,BT$<100) :BT = 0:CO = MO - 

P T = 0 : SF = 0 

BEEP : xi=10:V1 = 50 

CLS : RESTORE : READ AZ : FOR 1 = 1TÖA2• 

READB $ <I) :NEX T 

GOSUB" AUSWAHL" :B0X258,0,639,20: 
SVMB0L295,3,"Bautei1editor" 3 2 
GOSUB"RAS TER" 

0N ERROR GO TO " L IS TERR" 

CURS0R35,3 : PR INT"Vorhandene Bau 
teile auf der Diskette:" 

ROPEN# 1,"FD 1 - BAUTEILLISTE":TA = 3 
5:CURSORS,5 

T$(I)*BT : F0RI = iT0BT ; INPUT#1,B 

PRINT TAB(TA);B T $ <I); .TA=TA + 15 
IF TA>75 PRINT : TA = 35 
NEX T:CLOSE 

ON ERROR GO TO"FDERR" 

CURSORS,15:INPUT"BauteiIname (m 
ax.10 Zeichen):";BT$(0) 
BT$<0)=LEFT$<BT$(0),10):BTf=BT$ 
(0)+".BTL" 

WOPENttl, "FD1:"+BT$ 

SOUND50,3:CURSORS,17:PR INT"Hit 
den Cursortasten den Referenzpu 
nkt bestimmen und CCRD drücken 

" :GOSUB"HÖVE" :XR-X1: VR=VI:SOUND 

50,3 :CIRCLEXR,YR,1, .5 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

438 

440 

450 

460 

470 

480 

490 

500 

510 


520 


530 


548 


CURSORS,17 :PRINTSPC<80) 

LABEL "MENUE" : BOXC0Dl,102,254 11 
0,0 ' 

ON ERROR GOTO"FEHLER" 

VY = 2 :ZY=1 :BOX205,87,251,98,CO 
BOXCMOD 204,YY-1,252,YY+7,M0:SYM 
BOLC0D205,YY,B$(ZY),1 1 
GETTI 

IFSTICK (0) O0GOTO400 

IF<T*=CHR$<13>)ÖR<STRIG<0)=1>WA 

IT100 : GO TO460 

GOTO360 

BOXC0D204,YY-1,252,YY+7,0-SYMBO 

L 205,YY,B$<ZY),1,1 

IFS TICK(0)=5 YY=YY+8:ZY = ZY + l 

IFSTICKC0)=1 Y Y= Y Y-8 : ZY = ZY-l 

IFYY>8*AZ-6 YY=2:ZY=1 

IFYYC2 YY=8#AZ-6:2Y=AZ 

SOUND50,1:GOTO350 

ONZYGOSUB 480,670,780,900,848,7 

30,570,1270,1040,1730 

GOSUB"QUIT" : GO TO"MENUE" 

LABEL"MOVE" 

GOSUB" INFO-1" 

XA = X1 : YA = Y1 :PX = RX:PY = RY 
P T = P0 INT(X1,Yl) : L0 = P0 INT (Xl-1, Y 
1-1) :R0 = P0INT(Xl+1,Yl-1) :LU = POI 
NT(X1-1,Y1 + 1) • RU = P0 INT (Xl+1,Y1 + 
1) 

SETCPT XOR MOD,X1,Yl:SETCL0 XOR 
M0DX1-1,Yl-1:SETCR0 XOR M0DX1+ 

1 , Yl-1 : SETCLU XOR MODX1-1,Y1 + 1: 
SETCRU XOR MODXl+1,Yl+1 
GETT$ : IFT$="S"PX = 30:PY=15;ELSEI 
F T $="L"PX=1:P Y=1:ELSEIFT*="R "PX 
= RX : P Y = R Y 

IF(STRIG(0)=1)OR(T$=CHR$(13))TH 


550 

560 


578 

588 

590 


600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


720 

730 

740 


EN SETCPTD,XI,Yl:SETCL0DX1-1,Yl 
-1 - SETCRODXl + 1,Yl-1:SETCLUDXl-1 

'Yl + 1 'SETCRUDX1 + 1,Yl + 1rRETURN 
ONSTICK(0)GÖSUB2420,2430,2440,2 
450,2460,2470,2480,2498 
SETCPTD,XI,Y1:SETCL0DX1-1,Yl-l: 
SETCRODXl + 1,Yl-1:SETCLUDX1-1, Yl 
+ 1 ; SETCRUDX1 + 1,Yl + 1:X1 = XA:Yl=YA 
:GO TOS 10 
LABEL"MANU" 

E$="CCRD=Ende":GOSUB"INF 0 _ 2 " 

XA = X1 : YA=Y1:PX=1:PY=1:BF=1:SETC 

C0DX1,Yl: PR INT#1,1,C0,XR-XA YR- 
YA 

GE TT* 

IFSTICK<0)O0GOTO640 
IF(STRIG(0)=1)OR(T*=CHR$(13))RE 
TURN 

GOTO 600 

ONST ICK(0)GOSUB2420,2430,2440 2 
450,2460,2470,2480,2490 
SETCCODXA,YA:PRINTttl,l,CO,XR-XA 
,YR-YA 

X1 = XA : Y1 = YA:GOTO600 
LABEL"L INE" 

LX = X1 : LY= Yl :NE=1:BF = 2:GOSUB"MOV 

GOSUB" INFO" :LINECC0DLX,LY,X1 Yl 
: SOUND50,1 

GETT$ : IF T$= " "GOTO700 

IFT$ = CHR$(13) NE = 0 ; GöSUB"SAVE" : 

RETURN ELSEIFT$="N"GOSUB"NEIN"• 

RETURN 

GOSUB"SAVE" :GO T0688 
LABEL"SE T" 

GOSUB" INFO" :SETCC0DX1,Yl:NE = 2 B 
F = 3 : SOUND50,1 
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750 GETT$ : IFT$=""GÖTO750 
760 IFT $ = CHR $ (. 13)NE=8:GOSUB"SAVE M : R 
ETURN ELSE IFT $="N"GOSUB"NE IN" 
770 RETURN 
780 LABEL"BOX" 

790 LX-X1 - LV=V1 :NE = 3:BF = 4:GOSUB"MOV 
E" 

300 GOSUB" INFO" : BOXCC03LX,LV,XI,VI: 
SOUND50,1 

810 G E T T $ : IFT$=" "GOTO810 
820 IFT$="N"GOSUB"NEIN" :RE TURN 
830 GOSUB M SAVE" : NE = 0 : RETURN 
840 LABEL"PA IN T " 

850 NE = 4 :BF = 5 : GOSUB"MOVE" : IF M0 = 3 G 
OSUB"COL"ELSE Z = MO:CO = Mö 
860 GOSUB" INFO":PT=POINT(XI,VI) :PAI 
NTCZ3X1,VI,CO : SOUND50,1 
870 GETT$ : IFT$=""GÖTO870 
880 IFT$="N"GOSUB"NEIN" :GOSUB"AUSWA 
HL":RETURN 

890 GOSUB"SAVE" : NE = 0:GOSUB"AUSWAHL" 

:RE TURN 

900 LABEL"CIRCLE" :LX = X1 :LV=Y1 
918 E$="Radius in X/Y-Richt. festle 
gen":GOSUB" INF0_2":GOSUB 580 
920 R = ABS <X1-LX) : AS =(1/(R/ABS<V1-LV 

> >) :SOUND50,1 

930 BOXC031,102,254,110,8:E$="Anfan 
gs/Endwinke1:":GOSUB"EINGABE" 
948 GOSUB"AUSWERT":AW=XA*PAI<2)/360 
:EW=YA*PAI< 2)/3 6 0:SOUND50,1 
958 E$="Segment? CJ/N3 : " :GOSUB"E ING 
ABE":IFB$="J"GOTO1020 
960 CIRCLE[C03LX,LY,R,AS,AW,EW :NE = 5 
:BF = 6:SOUND50,1:GOSUB" INFO" 

970 GETT$ : IFT$=""GOTO970 

980 IFT$="N"GOSUB"NEIN":GOTO1000 

990 GOSUB"SAVE" 

1000 NE=0:X1=LX:V1=LV:RETURN 
1010 'KREISSEGMENT 

1028 CIRCLECC03LX,LY,R,AS,AH,EW,0:N 
E = 6:BF = 7:SQUND50,1:GOSUB" INFO" 
1030 GOTO970 
1040 LABEL"COLOR" 

1050 GOSUB"COL" :CO = Z:SOUND50,1 :GOSU 
B"AUSWAHL":RETURN 
1060 LABEL"RAS TER" 

1070 RX=10:RY = RX/2 : IF M0 = 3 Z = 2 ELSE 
Z=1 

1080 FORI=RYTO100STEPRY:F0RJ=RXT028 
0STEPRX : IFPOINT (J, I)=0THENSETC 
ZI J , I 

1090 NEXT:NEXT.RETURN 
1100 LABEL"COL":IFM0=3 ZB=3:ZX=90:Z 
S=3 ELSE ZB=1:ZX=66:ZS=1 
1110 E$="Farbe auswählen und CR drü 
cken" : GOSUB"INF0_2" 

1120 Y = 52:BOXC03203,50,253,99,0 
1130 FORI=ZBTO0STEP-1 
1140 BOX230,Y,250,Y+10, I :Y=Y+12 :NEX 
T:Y=54:Z=MO 

1150 SYMBOL207,Y,"->»,1,1:WAIT 100 
1160 GE T T $ 

1170 IFST ICK<0)O0GOTO1200 
1180 IF <T$=CHR$<13))OR<STRIG(0)=1)W 
A I T100 : GOTO1260 
1190 GOTO1160 

1200 SYMBOLC03207, Y , "H" ,1,1 
1218 I FS T I CK(0)=5 Y=Y+12:Z=Z~1 
1220 IFSTICK(0)=1 Y=Y-12:Z=Z+1 
1230 IF Y > Z X Y = 54:Z = ZS 
1240 IFY<54 V=Z X:Z = 0 
1250 SOUNB50,1;GOTO1150 
1260 RETURN 
1270 LABEL " TEX T" 

1288 GOSUB"MOVE" :BÖXC031,102,254,11 
0,8:XA=1:V A = 1 

1290 E$="Horizonta1/Vert ika 1 ? (H/V 

> :":GOSUB"EINGABE" 

1300 TX $ = "" :TL = 0:TX = X1:TY=Y1:BF = 8 
1310 IFB$="V"GOTO"VERT" 

1320 GE T T $ :PT = P0INT(X1 + 8*XA,Vl + l) 
1330 IFX1+8*XA>200 GOTO"SI)EL" ELSE 
IF X1<1 X1=1 ; TX = X 1 
1340 SYMBOLEM03X1,Y1,"■",XA,YA 
1358 IF T$ = " "GOTO 1320 
1360 SYMB0LEPT3X1,Y1,"1",XA,YA 
1370 IFT$=CHR$(13)G0T0 1400 


1388 IFT$=CHR$C16)G0T0"SDEL" 

1390 SYMB0LEC03X1,Yl,T$,XA,YA:X1=X1 
+ 8*XA : TX*=TX$ + T*:TL= TL +1:GOTO 
1320 

1400 IFTXtO" "GOSUB "SA VE" : RETURN : EL 
SE RETURN 
1410 LABEL"SDEL" 

1428 X1 = X1-8*XA : IF X1< TX TX = X1 

1430 IFTX$=""GOTO1450 

1448 TL=TL-1 : TX$ = LEFT$<TX$,TL) 

1458 GO TO1320 

1468 LABEL"VERT":BF=9 

1470 GETTI 

1480 IFY1-8*YA<1 GOTO"VBEL"ELSE IF 
Yl>100 Yl=100 : TY=Y1 
1490 PT = POINT(Xl + 1,V1-8*VA-1) :SYMBO 
LEMÖ3X1,VI,"1",YA,XA,1 
1500 IFT $=""GOTO1470 
1510 SYMB0LCPT3X1,Yl,"■",YA,XA,1 
1528 IFT$=CHR$(13)GOTO1550 
1530 IFT$=CHR$<16)GOTO"VBEL" 

1540 SYMB0LECÖ3X1,Yl,T $ ,YA,XA,1:Y1= 
Y1-8*YA : TX$=TX$ + T$:TL= TL +1:GOT 
0 1470 

1558 IFTXfO" "GOSUB"SAVE" : RETURN : EL 
SE RETURN 
1560 LABEL"VBEL" 

1570 Y1 = Y1+8#YA : IF Yl> T Y T Y= Y1 

1588 IFTX$=""GOTO 1688 

1598 TL=TL-1 : TX$ = LEFT$(TX$,TL) 

1608 GO TO 1470 
1618 LABEL"SAVE" 

1620 PRINT#1,BF 

1630 ONBFGOTO 1640,1650,164 0,1650,16 
60,1670,1670,1688,1680,1690,17 
00,1710,1728 

1640 PRINT#1,C0,XR-XA,YR-YA:RETURN 
1650 PRINT#1,C0,XR-LX,YR-LY,XR-X1,Y 
R-Yl : RETURN 

1668 PRINT#1,Z,XR-X1,YR-Y1,C0 : RE TUR 
N 

1670 PR INT#1,C0,XR-LX,YR-LY,R,AS,AW 
,EW : RETURN 

1680 PRINT#1,C0,XR-TX,YR-TY,TX$,XA, 
YA;RE TURN 

1690 PRINT#1,XR-XA,YR-YA:RETURN 
1780 RETURN 

1718 PRINT#1,BC :RETURN 
1720 PRINT#1,Z,PC :RETURN 
1730 LABEL"ENDE" 

1740 E$ = "ENDE/We i ter/Menue CE/W/M3: 

";GOSUB"EINGABE" 

1750 IFB"W" GOTO 1768 ELSE IF Bt = 
"M" RETURN 

1760 ON ERROR GO TO"ERSTL IST" 

1778 CLOSEtt1 :DELETE"BAUTEILLISTE" 
1780 BT = BT + 1 : BT$ (BT)=BT$(8) 

1790 WOPEN#1,"FD 1 : BAUTEILLISTE" 

1880 PRINT#i,BT : FOR1 = 1 TOBT :PRINT#1, 
BT$< I) : NEXT : CLOSEtt1 
1818 IF B $ = "W" RUN 
1820 RUN"MENUE" 

1830 LABEL"EINGABE" 

1848 WA I T208:B$="" :BL = 0 
1850 CX = LEN<E$)*8+5 : SYMBOL 3,103,E$ 
,1,1 : B* = " " 

1868 GE T T $ 

1870 SYMBOLCX,103,,1,1 
1888 IF T$ = ""GOTO 1868 
1890 SYMBOLC03CX,103,,1,1 
1900 IFT$=CHR$<13)THEN BOXC031,102, 
254,118,0:RETURN 
1918 IFT $ = CHR$ C16)GOTO"DEL" 

1928 SYMBOLCX,103,T$,1,1:CX=CX+8:BL 
= BL +1 

1930 B$=B$+T$:GOTO1860 
1940 LABEL"DEL" :CX = CX-8 
1950 IFCXCLENCEf)*8+5 CX = LEN <E$)*8 + 
5 

I960 IFBL = 0 GOTO 1860 ELSE BL = BL-1 : 

B $ = LEF T $ < B $ , BL > :GOTO1360 
1970 LABEL"AUSWAHL" 

1980 B0X8,0,208,100:BOX0,101,255,11 
1,8 :BOX202,0,254,180,8 
1990 Y = 2 ; FOR 1 = 1 TOAZ:SYMBOL205,Y,B$< 
I),1,1:Y= Y +8 .NEXT 
2000 RETURN 
2010 LABEL"AUSWERT" 


2028 L=LEN(B$) 

2030 FOR I = 1TOL 

2040 IFASC <M ID $ <B $, 1,1))<$30 J=I: I 
= L 

2050 NEXT 

2860 XA = VAL(LEFT$<B$,J-l)> :YA = VAL <R 
IGHT$(B$,L-J)) 

2070 RETURN 
2080 LABEL" INFO" 

2098 BOXC031,102,254,110,0.SYMB0L3, 
103 , " CCR 3 = Menue CN3 = Rückgäng i g 
",1,1 

2100 RETURN 

2110 LABEL" INF0_1" 

2120 BOXC031,103,254,110,0 ■ S V M B 0 L 3, 
103,"Cursor positionieren",1,1 
2130 RETURN 
2148 LABEL" INF0_2" 

2158 BOXC031,183,254,110,0:SYMB0L3, 
103,E$,1,1 
2160 RETURN 
2170 LABEL"NEIN" 

2180 ON NE GOSUB 2280,2210,2220,223 
0,2248,2250,2260 
2190 RETURN 

2208 LINEC03LX,LY,X1,Yl:X1=LX:Y1=LY 
: RETURN 

2218 SETCPT3X1,Yl.RETURN 
2220 BOXC03LX,LY,X1,Yl:X1=LX:Y1=LY: 
RETURN 

2230 PAINTCPT3X1,V1,CÖrRETURN 
2240 CIRCLEC03LX,LY,R,AS:RETURN 
2258 CIRCLEC03LX,LY,R,AS,AW,EW,O:RE 
TURN 

2260 PAL0,8:PAL1,12:PAL2,11:PAL3,15 
: RETURN 

2270 LABEL"FEHLER" 

2280 BOXC031,102,254,110,0:SYMB0L3, 
103,"F EHLER !!!",!,1:S0U 
ND9,5 

2290 WA I T1000:GOSUB"ÖUIT":RESUME"ME 
NUE" 

2300 LABEL"FDERR" 

2318 IF ERN=50 GOTO 2348 ELSE IF ER 
>1 = 58 GOTO 2320 

2328 CURS0R29,15 :PRINT" Schon uorha 
nden . . . " : SOUNDS,3:WA IT900 
2330 CURS0R29,15-PRINT SPC(40):RESU 
ME 270 

2348 'NOT READY 

2358 CURS0R29,15 : PR INT" Diskette ei 
n 1 egen ! ! ! " : SOUNDS,3:WA I T900 
2368 CURS0R29,15 : PR INT SPC<40):RESU 
ME 278 

2378 LABEL"LISTERR" :S0UND9,3 
2380 CURS0R35,5:PRINT"Keine !!'" 
2398 RESUME 260 

2400 LABEL"ERSTL IST" : RESUME 1780 
2410 ' 

2420 YA = YA-PY :GOTÖ2500 

2430 XA=XA+PX:YA=YA-PY:GOTO2580 

2440 XA = XA+PX : GOTO2508 

2458 XA = XA+PX : YA=YA+PY:GOTO2500 

2468 YA=YA+PY : GOTO2500 

2470 XA = XA-PX : YA=YA+PY : GOTO2500 

2480 XA=XA-PX:GOTO2500 

2490 XA=XA-PX:YA=YA-PY 

2500 IFXA>199 XA=199 

2510 IF VA>99 YA = 99 

2520 IF X A <1 XA = 1 

2530 IF YA<1 YA=1 

2540 RETURN 

2550 LABEL"QU I T" : BOXC0 31,102,254,11 
0,0 

2560 BOXC0 3 204,YY-1,252,YY+7,0:S Y M B 
OL 205,YY,B$<ZY),1,1 
2578 SOUND50,1:RETURN 
2580 ' 

2598 DATA 10 , MOVE,LINE,BOX,CIRCLE,P 
AINT,SET,MANU. 

2680 DATA TEXT,COLOR,ENDE 


108 'MZ-800 MINI-CAD Version 2.3 
110 '(C)Klaus Thiele 

120 ' 

130 DIM B$<19),FA$<15),BT$(100):RES 
TORE4040 
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140 FÖR I=0TÖ15:READ FAI< I > : NEXT:AD = 
22368 

150 P T = 0:PI=CHRI(I0,I7E,I7E,$7E,I7E 
,I7E,I7E,18) 

16Ö RX=20:RV=10:MS=20:SF = 0:DTI="2e i 
chnung Nr." 

170 BC = 0 : GOSUB"POKE":GOSUB4068:BEEP 
: X1 = 300 : V1 — 9 0 
180 ON ERROR G0T0"N0LIST" 

190 ROPENttl, 11 FD 1 : BAUTE ILL ISTE" : INPU 
T#1,BT 

200 FÖRI = 1T0BT : INPUT#1,BTI<I> :NEXT : 
CLOSE 

210 CURSORS,17:PR INT"Installation : " 
=LINE24,144,127,144 
228 CURS0R3,19:PR INT"Speichern auf 
Floppy-Disc oder RAM-Disc ? CF/ 
R3 ,j 

230 GETTI : IF T1="“GO TÖ230 
240 IFTI="F"SMI="FD1:" :CURSORS©,19 : 
PRINT" :Floppy-Disc" :ELSE IFT1 ="R 
"SM 1="RAM : " : CURSORS©,19:PRINT" : 
RAM-D isc"ELSES0UND9,S :GOTO230 
258 CURS0R7,28 : PR INT"Laden uon Flop 
py-Disc oder RAM-Disc ? CF/R3" 
260 GETTI : IFTI=""GOTO260 
270 IFTI="F"LMI="FD1 :CURSOR50,20 : 
PRINT":Floppy-Disc":ELSEIFTI="R 
"LM1="RAM : " : CURSOR50,20 : PR INT" : 
RAM-D isc"ELSES0UND9,5 : GOTO260 
280 CURSORS,21 : PR INT"So 1 1 die Einga 
ben gespeichert werden ? CJ/N3" 
290 GETTI : IFTI=""G0T0298 
300 IFTI="J"FL=-1 :CURSOR50,21:PR INT 
" : Ja" - ELSE IFTl="N"FL = 0.GOTO340: 
ELSES0UND9,5 :GOTO290 
310 CURS0R24,22 : PR INT"Dateiname ?: 

";DTlj" : INPUT" H";NR I 
320 ÖN ERROR GO TO"FDERR" 

330 WOPENttl,SMI+DTI+NRI 
340 IF PEEK <I1099> =0 IN IT"CRT : M3" : M 
0=1 : ELSE INIT"CRT:M4" :PAL1,12 :P 
AL2,11 :M0 = 3 * 

350 CO = MO : RESTORE : READ A2:F0RI = 1T0A 
2 : READB$ < I) :NEXT : GOSUB"AUSWAHL" 
368 LABEL"MENUE" : BOX0,0,585,188 
370 ON ERROR GOTO"FEHLER" 

380 YY = 3 :2Y=1 : B0X591,175,635,186., CO 
390 BOXCMO3589,VV-l,637,VY + 7,MO:SVM 
BOLC03590,YY , Bl <ZY>,1,1 
400 GETTI : IFTI="H"THENIFM0=3THENPAL 
0,0:PAL3,15 : PALI,12 : PAL2,11 ELS 
E PAL0,0:PAL 1,15 
410 IFSTICK(0)O0GOTO440 
420 IF <TI=CHRI(13))OR(STRIG(0)=1)WA 
IT100:GO TO500 
430 GOTO400 

440 BOXC03589,YY-1,637,YY+7,0:SYMBO 
L 590,YY,Bl<ZY) , f, 1 
450 IFS TICK < 0) =5 YY=YY+9 : 2Y = 2Y + 1 
460 IFSTICK <0> = 1 YY=YY-9:2Y = 2Y-1 
470 IFYY>9*A2-6 YY=3:2Y=1 
480 IF Y Y<3 YY=9*AZ-6:ZY=AZ 
490 SOUND50,1:GOTO390 
500 ON2YGOSUB520,700,810,930,870,76 
0,600,1330,1640,2430,1970,1980, 
1090,1230,1970,2100,2140,2780,3 
160 

518 GOSUB"OUIT":GOTO"MENUE" 

520 LABEL"MOVE" :GOSUB"INFO_ 1" 

530 XA=X1:YA=Y1:PX=RX:PY=RY 
540 PT = POINT <X1,Y1) :LO = POINT<X1-1,Y 
1-1) :R0 = P0INT<X1 + 1,Yl-l) :LU = PO I 
NT <X1-1,Yl + 1) :RU=POINT(Xl+l,Y1 + 
1) 

550 SETCPT XOR MO 3,X1,Y1:SETCLO XOR 
M03X1-1,Yl-l:SETCRO XOR M03X1+ 
1,Yl-l :SETCLU XOR MO3X1-1,Y1 +1: 
SETCRU XOR M03X1+1,Yl+1 
560 GETTI : IF T1="S"PX = 30:PY=15:ELSE I 
FTl="L"PX=l:P Y=1:ELSE IFT1="R"PX 
= RX : P Y = R V 

570 IF<STRIG<0)=1)OR<TI=CHRI<13))TH 
EN SETCPT3,X1,Y1:SETCLO3X1-1,Y1 
-1 : SETCRO3X1 + 1,Yl-l:SETCLU3X1-1 
, Yl + 1: SETCRU3X1 + 1,Yl + 1:RETURN 
580 ONST ICK <0) GOSUB3860,3870,3880,3 
890,3900,3910,3920,3930 


590 SETCPT3,X1,Y1:SETCL03X1-1,Yl-l: 
SETCRO3X1+1,Y1-1:SETCLU3X1-1,Y1 
+ 1:SETCRU3X1 + 1,Yl + 1 :X1 = XA : Y1= YA 
• GO TO540 
600 LABEL"MANU" 

610 EI="M it Cursortasten steuern. 

CCR3=Ende":GOSUB"INF0_2" 

620 XA = X1 : YA=Y1:PX-1:PY=1:BF=1:SETC 
CO3X1,Y1: IF FL PRINTttl,1,C0,XA, 
VA 

630 GETTI 

640 IFSTICK(0)O0GOTO670 
650 IF<STRIG<0)=1)OR(TI=CHRI<13))RE 
TURN 

660 GOTO 630 

670 ONST ICK <0)GÖSUB3860,3870,3880,3 
890,3900,3910,3920,3938 
630 SETCC03XA,YA:IF FL PRINT#1,1,C0 
, X A , Y A 

690 X1 = XA : Yl=YA : GOTO630 
780 LABEL"L INE" 

710 LX=X1:LY=Y1:NE=1:BF=2:GOSUB"MOV 
E" 

720 GOSUB" INFO":LINECC03LX,LY,XI,Y1 
: SOUND50,1 

730 GETTI : IFTI=""GOTO730 
740 IFTI = CHRI<13) NE = 0 : GOSUB"SAVE": 
RETURN ELSE IFTl="N"GOSUB"NE IN" : 
RETURN 

750 GOSUB"SAVE":GOTO710 
760 LABEL"SE T" 

770 GOSUB" INFO" : SETCCO3X1,Y1 : NE = 2 : B 
F = 3 : SOUND50,1 
780 GETTI : IFTI=""GOTO780 
790 IFTI=CHRI<13)NE=0:GOSUB"SAVE":R 
ETURN ELSE IFTl="N"GOSUB"NE IN" 
800 RETURN 
818 LABEL"BOX" 

828 LX = X1 : LY=Y1:NE = 3:BF = 4:GOSUB"MOV 
E" 


830 GOSUB" INFO" : BOXCCO3LX,LY,X1,V1: 
SOUND50,1 

840 GETTI: IFTI=""G0T0848 
850 IFT l="N"GOSUB"NE IN" : RE TURN 
860 GOSUB"SAVE" :NE = 0 :RETURN 
870 LABEL"PA INT" 

888 NE = 4 : BF = 5 : GOSUB"MOVE" : IF M0 = 3 G 
OSUB"COL"ELSE 2=M0:C0=M0 
890 GOSUB" INFO" : PT = POINT(XI,VI) :PAI 
NTC23X1,Yi,CO :SOUND50,1 
900 GETTI : IFT1=""GOTO908 
910 IFTI="N"GOSUB"NEIN":GOSUB"AUSWA 
HL" : RETURN 

920 GOSUB"SAVE":NE=0:GOSUB"AUSWAHL" 

: RETURN 

930 LABEL"CIRCLE" :LX = X1:LY=Y1 
940 EI="Rad ius in X und Y-Richtung 
fest legen" : GOSUB"INFO-2":GOSUB 
530 

950 R = ABS<X1-LX) : AS =<1/CR/ABS<Yl-LY 
))) : SOUND50,1 

960 BOXC03 1,190,539,198,8:EI="Anfan 
gs/Endwinke1 :" :GOSUB"E INGABE" 
970 GOSUB"AUSWERT" : AW = XA*PAI<2)/360 
:EW=YA*PAI <2)/360: S 0 U N D 5 0 ,1 
980 E1="Segment? CJ/N3 :" :GOSUB"E ING 
ABE" : IFBI="J"GOTO1850 


990 CIRCLECC03LX,LY,R,AS,AW,EW:NE=5 
:BF = 6 :SOUND50,1 : GOSUB"INFO" 

1000 GETTI : IFTI=""GOTO1000 

1010 IFTI = "N"GOSUB"NE IN":GOTO1030 

1020 GOSUB"SAVE" 

1030 NE = 0 :X1 = LX : Y1 = LYtRETURN 
1040 "KREISSEGMENT 


1050 CIRCLECC0 3LX,LY,R,AS,AW,EW,0 :N 
E = 6 : BF = 7 : SOUND50,1:GOSUB"INFO" 
1060 GO TO 1000 
1070 LABEL"COLOR" 


1080 GOSUB"COL " 
B"AUSWAHL" 
1090 LABEL"BOR" 


C0=2:SOUND50,1:GOSU 
RETURN 
:BF=12 

1100 BOXC031,190,539,198,0:SYMB0L28 
0,191,"Mit C+-3 und C->3 auswähl 


en" ,1,1 


1110 BOXC031,190,199,198,0:TI="Rand 
färbe: "+FAI<BC) 

1120 SYMB0L3,191,TI,1,1: GOSUB"POKE" 
1130 GETTI: IFST ICK (0) O0GOTÖ1160 


1140 IFTl = CHRI<13)GOSUB"SAVE":RE TUR 
N 

1150 GOTO 1130 

1160 IFSTICK<0)=7 BC=BC-1 

1170 IFST ICK(0)=3 BC = BC +1 

1180 IFBC<0 BC=15ELSEIFBC>15 BC=0 

1190 GO T01110 

1280 LABEL"POKE" 

1210 POKEI27D0,I3E,BC,II,ICF,16,IED 
,179,IC9 

1228 USRCI27D0) : S0UND9,1:RE TURN 
1230 LABEL"RASTER" 

1240 El="Abstand ? :":GOSUB"E I NGABE 

1250 IFVAL <BI)=0 B1="20" 

1260 RX = VAL<BI) :RY = RX/2 : IF M0 = 3 GOS 
UB"COL" ELSE 2=1 

1278 F0RI=RYT0188STEPRY:F0RJ=RXT058 
5STEPRX: IFPOINT(J, I)=0THENSETC 
2 3 J , I 

1288 NEX T : NEX T 

1290 SOUND50,3-BOXC031,198,539,198, 
0 

1300 EI=BI+" Punkte entsprechen wie 
uiel cm ?:" : GOSUB"EINGABE":MS = 
VAL <BI) 

1310 IFVAL(BI)=0 MS=RX 
1320 GOSUB"AUSWAHL":RETURN 
1338 LABEL"BEMASS" 

1340 E1= "Ersten Bemaßungspunkt anfa 
hren und CCR3 drücken": GOSUB"I 
NF0_2" 

1350 GOSUB530:XV=X1:YV=Y1:SÖUND58,3 
1360 El="2weiten Bemaßungspunkt anf 
ahren und C CR 3 drUcken": GOSUB" 
INF ö_2" 

1370 GOSUB530:XB = X1:YB= Y1 : SOUND50,1 
1380 IF YVO YBGOTO"SENK" 

1398 "WAAGERECHT 
1408 BOXC031,190,539,198,0 
1410 EI="Bemaßung Oben oder Unten C 
0/U3 ?:" :GOSUB"EINGABE" 

1420 IFB1="0"BM = -10 : 2I = —2 :2J = 5:2K = - 
8 : ELSE BM=10 :2I = 2:2J = -5:2K = 2 
1430 IFXV>XB H = XV : XV = XB:XB = H 

1449 LX = XV-3 = LY=YV+BM:Xl = XB+3:Y1-YB 
+ BM :LINECC03LX,LY,X1,Y1:BF = 2:G 
OSUB " SAVE" 

1450 LX = XV :LY=YV+BM + 2I:X1 = XV:Y1=YV + 
BM+2J :LINECC0 3LX,LY,X1,Y1:BF = 2 
: GOSUB"SAVE" 

1460 LX = XB : LY=YB+BM+2I:X1 = XB:Y1=YB + 
BM+2J :LINECC03LX,LY,X1,Y1:BF = 2 
:GOSUB"SAVE" 

1478 LR = XB-XV : TXI = STRI< <INT <LR*MS/R 
X*100 + .5)/100)) : LR = LEN(TXI)#8 
1480 TX=(CXB-XV)/2+XV)-LR/2:TY=YV+B 
M +2K : XA= 1 : YA = XA :BF = 8 
1490 SYMB0LCC03TX,TY,TX1,1,1:GOSUB" 
SAVE" 

1500 X1 = XV : Y1=YV : RETURN 
1510 LABEL"SENK" 

1520 IF XVOXB THEN ERN= 1 
1530 BOXC031,190,539,198,0 
1548 EI="Bemaßung Rechts oder Links 
CR/L3 ?:" : GOSUB"EINGABE" 

1558 IFBI="R"BM = 20 :2I = 4:2J = -10:2K = 4 
: ELSE BM = -20 :2I=-4 :2J=18 :2K = -1 
0 

1560 IFYV>YB H=YV:YV=YB:YB = H 
1570 LX=XV+BM:LY=YV-2:X1=XV+BM:Y1=Y 
B+2:LINECC0 3LX,LY,X1,Y1 :BF = 2 :G 
OSUB"SAVE" 

1580 LX = XV+BM+2J : LY=YV:Xl = XV+BM+2I : 
Y1=YV :LINECC03LX,LY,X1,Y1:BF = 2 
: GOSUB "SAVE" 

1590 LX = XB +BM +2I :LY=YB:X1 = XB+BM + 2J : 
Y1=YB:LINECC03LX,LY,X1,Y1:BF=2 
: GOSUB"SAVE" 

1608 LR=YB-YV : TXI = STRI<(INT <LR*MS/R 
YI100+.5)/100)) :LR = LEN<TXI)*8 
1610 TY=< <YB-YV)/2 + YV)+LR/2:TX = XV+B 
M+2K : XA=1:YA = XA:BF = 9 
1620 SYMB0LCC03TX,TY,TXI,1,1,1:GOSU 
B"SAVE" 

1630 X1 = XV : Y1=YV : RETURN 
1640 LABEL"TEIL":2=1 

1650 IFBT=0THENSYMBOL3,191,"Keine B 
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auteile vorhanden !!!",1,i:SOU 
ND9,3:HA IT900-RETURN 
1668 E$="Referenzpunkt arvfahren und 
CCRD drücken": GOSUB"INF0_2"-G 
OSUB530 

1670 XR = X1:VR= V1:BOX C 0 D 1,191,534,19 
8,0 : SÖUND50,1 

1688 E $ = " Faktor -Pur Verk lein/größer 
ung : " : GOSUB"EINGABE" :V = VAL <B$> 

: IFV = 0 V= 1 

1698 SVMB0L3,191,"Bautei1:",1,1:SVM 
BOL208,191, "Mit CfO und Z-*l au 
swählen",1,1 

1700 SYMBOLC0T67,191, "■HHIHMHflB" , 
1,1 :SVMB0L67,191,BT$<2) ,1,1 :S0 
UND9,1 

1710 GETT$: IF(T$=CHR$<13) )0R<STRIG< 
8) O0) GOTO1760 

1728 IFS T ICK (0) =3 2 = 2 +1 : GOTO1740:EL 
SE IFSTICK(@)=7 2 = 2-1 :GOTO1740 
1730 GO TO 1710 

1748 IF 2C1 2 = B T ELSE IF 2>BT 2=1 
1750 GOTO1700 

1760 R0PEN#3,"FBI : "+BT$<2> +».BTL" 
1770 INPUT#3,BF 

1780 IFEOF <#3>CL0SE#3:X1 = XR : V1=YR :C 
0 = M0 : RE TURN 

1790 ONBFGOSUB1330,1810,1830,1850,1 
870,1890,1910,1930,1950 
1880 GOSUB"SAVE" : GOTO 1770 
1810 INPUT#3,C0,X1,Y1,X2,Y2:LX=XR-X 
1*V :LY=YR-Y1#V :X1 = XR-X2*V:Y1=Y 
R-Y2*V 

1820 LINECC03LX,LY,X1,Yl:RETURN 
1830 INPUT#3,C0,X1,Y1iXA=XR-Xl*V:Y A 
=YR-Y1*V 

1840 SETCCOUXA,YA :RETURN 
1850 INPU T#3,CO,X1,Y1,X2,Y2 :LX=XR-X 
1*V :LY=YR-Y1#V :X1 = XR-X2*V : Y1=Y 
R-Y2*V 

1860 B0XCC03LX,LY,X1,Y1:RETURN 
1870 INPUT#3,Z,X1,Y1,C0 = X1=XR-X1*V: 
Y1=YR-Y1*V 

1888 PAINTC23X1,Yl,CO :RETURN 
1890 INPUT#3,C0,X1,Y1,R,AS,AW,EW:LX 
= XR-X1*V : LY=YR-Y1*V : R = R*V 
1900 CIRCLECC03LX,LY,R,AS,AW,EW : RE T 
URN 

1918 INPUT#3,CO,XI,Y1,R,AS,AW,EW :LX 
=XR-X1#V : L Y= YR-Y1*V •• R = R*V 
1920 CIRCLECCODLX,LY,R,AS,AW,EW,0 :R 
ETURN 

1930 INPUT#3,C0,XT,VT,TX $,XA ,YA : TX = 
XR-X T #V:T Y= YR-Y T #V 
1940 SYMBOLCCOUTX,TY,TX $,XA,YA: RE TU 
RN 


1950 INPUT#3,C0,XT,YT,TX $,XA,YA : TX = 
XR-X T # V:T Y= YR-Y T #V 
I960 SYMBOLCCOUTX,TY,TX$,YA,XA,1 ; RE 
TURN 

1970 LABEL"HCOPY":LINEC030,189,639, 
189:GOSUB4070:RETURN 
1980 LABEL"PAL" 

1990 GOSUB"COL":BF=13:PC=15 
2800 BOXC031,198,539,198,0:SYMBOL20 
0,191,"Mit C<-3 und C-*3 auswähl 
en",1,1 

2010 BOXC031,190,199,198,0:T$="Färb 

e: "+FAf(PO 

2020 SYMB0L3,191,T $ ,1,1:PAL2,PC:SOU 
ND9,1 

2038 GETT$: IFSTICK(0)O8 GOTO2060 
2840 IFT$=CHR$<13)GOSUB"SAVE" :GOSUB 
"AUSWAHL" : RETURN 
2850 GOTO2830 
2060 IFSTICK(0)=7 PC=PC-1 
2070 IFSTICK<0)=3 PC=PC+1 
2080 IFPC<0 PC=15 ELSE IF PC>15 PC = 


2090 GOTO2010 
2180 LABEL"CLS" 

2110 E $= " S i eher ? CJ/N3 : " : GOSUB"EIN 
GABE" : BF=11 
2128 IFB $<> " J"RETURN 
2138 BOXC831,1,584,187,0:GOSUB"SAVE 
":RE TURN 

2140 LABEL"LOSCH" 

2150 E $="M i t Cursortasten steuern. 


C CR 3 = Ende":GOSUB"INF0_2" 
2160 XA=X1:YA=Y1:PX=1:PY=1:BF=10:PO 
SITION XA,YA :PATTERNCM03-8,P$: 
IF FL P R IN T # 1,10,XA,YA 
2170 GETT$ 

2180 IFST ICK <0> O0 GOTO 2218 
2190 IF <STRIG<0)=1)OR<T$=CHR$(13> > T 
HENPOSITIONXA,YA:PATTERNC03-8, 
" ":GOTO2240 

2200 GOTO2170 

2210 ONST ICK(0)GOSUB3860,3870,3880, 
3890,3900,3910,3920,3938 
2220 POSITIONXA,YA : PATTERNCMO3-8,P$ 
: IF FL PR IN T#1,10,XA,YA 
2230 G0T02178 

2240 IF FL PR INT#1,10,XA,YA 

2250 X1 = XA : Y1 = YA-RETURN 

2260 LABEL"COL" : IFM0 = 3 ZB=3:ZX=177: 

ZS = 3 ELSE ZB = 1 :ZX=153 :ZS=1 
2278 E$="Farbe auswählen und CCR3 d 
rücken" : GOSUB"INF0_2" 

2280 Y=139:BOXC03588,129,638,187,0 
2290 FOR I = ZSTO0STEP-1 
2300 B0X612,Y,632,Y + 10, I :Y = Y + 12:NEX 
T:Y=141 : Z = MÖ 

2310 SYMB0L592,Y,,1,1:WA IT 108 
2320 GETTI 

2330 IFSTICK(0)O0GOTO2360 
2340 IF < Tl = CHRi(13))OR(STR IG(0) = 1)W 
AIT100 : GO TO2420 
2350 GO T02320 

2360 SYMBOLC03592 , Y , "H" , 1,1 
2370 IFST ICK(0)=5 Y=Y + 12:Z = Z-1 
2380 IFST ICK <0) = 1 Y=Y-12 = Z = Z + 1 
2390 IF Y>ZX Y=141 : Z = ZB 
2400 IF Y<141 Y = ZX:Z = 8 
2418 SOUNB50,1:G0T02318 
2420 RETURN 
2430 LABEL " TEXT" 

2440 GOSUB"MOVE" :BOXC031,190,539,19 
8,0 

2450 E$=" Größe ? <x/yGOSUB"E ING 
ABE" :GOSUB"AUSWERT" 

2468 E$="Hor izonta1/Vertika1 ? (H/V 
> = " : GOSUB"E INGABE" 

2470 TX$="" : TL = 0 : TX = X1:TY=Y1:BF = 8 
2480 IFB$="V"GOTO"VERT" 

2490 GETT$ :PT = P0INT<X1 + 8*XA,Yl + t) 
2500 IFX1+8*XA>587 GO TO"SDEL" ELSE 
IF X1<1 X1=1 : TX = X1 
2510 SYMB0LCM03X1,Y1,,XA,YA 
2520 IFT$=""GOTO 2498 
2530 SYMB0LCPT3X1,Y1,,XA,YA 
2548 IFT$=CHR$<13)G0T0 2570 
2558 IFT$=CHR$<16)G0T0"SDEL" 

2560 SYMBOLCC03Xl,Yl,Tf,XA,YA:Xl=Xl 
+ 8*XA : TX$ = TXi + TI:TL= TL +1:GOTO 
2490 

2570 IFTX^O"" GOSUB "SAVE" : RETURN : EL 
SE RETURN 
2580 LABEL"SDEL" 

2598 X1 = X1-8 #XA: IF X1CTX TX = X1 

2600 IFTX$=""GOTO2620 

2610 TL=TL-1 : TX$ = LEFT$(TX$,TL) 

2620 GOTO2490 

2630 LABEL"VER T" :BF = 9 

2640 GE T T $ 

2650 IFY1-8#YA<1 GO TO"VBEL"ELSE IF 
Y1> 188 Yl=188 : TY=Y1 
2660 PT = POINT <X1 + 1,Yl — 8*YA—1> :SYMBO 
LCM03X1,Y1,"1",YA,XA,1 
2670 IFT $=""GOTO2640 
2680 SYMB0LCPT3X1,Yl,,YA,XA,1 
2690 IFT$=CHR$(13)GOTO2720 
2780 IFT$=CHR$(16)G0T0"VDEL" 

2710 SYMB0LCC03X1,Y1,T*,YA,XA,1 : Y1 = 
Y1-8*YA : TX$=TX$ + T$ : TL=TL + 1:GOT 
0 2648 

2728 IFTX*<>" "GOSUB"SAVE" : RETURN : EL 
SE RETURN 
2730 LABEL"VDEL" 

2740 Y1 = Y1+8*YA : IF Y1> T Y T Y= Yl 

2750 IFTX$=""GOTO 2770 

2760 TL=TL-1 : TX$ = LEFT$<TX$,TL) 

2778 GOTÖ2640 
2780 LABEL"LOAD" 

2790 ON ERROR GO TO"LOERR" 

2800 SOUNB50,3 :f$="Welche "+DT$:GOS 


UB"E INGABE " 

2810 IF, NOT FL GOTO 2830 
2820 IFB*=NR*THENS0UNB9,5:GOTO2800 
2830 IFB$=" "CL0SE#2 : RETURN 
2848 R0PEN42,LM$+BT$+B$ 

2858 INPUT42,BF 

2860 IFE0F<tt2)CL0SE42:GOTO 2808 
2870 ONBFGOSUB2900,2890,2900,2910,2 
920,2930,2940,2950,2960,2970,2 
980,2990,3800 
2888 GOTO 2850 

2390 INPUT#2,CL,X1,Y1,X2,Y2-LINECCL 
3X1,Yl,X2,Y2:RETURN 
2988 INPUT#2,CL,XI,Yl:SETDCL3X1,Yl: 
RETURN 

2910 INPUT42,CL,XI,Yl,X2,Y2:B0XCCL3 
XI,Y1,X2,Y2:RETURN 
2920 INPUT#2,CZ,X1,Y1,CL:PAINTCCZ3X 
1,Yl, CL : RETURN 

2930 INPUT#2,CL,X1,Y1,R,AS,AW,EW:CI 
RCLECCL3X1,Yl,R,AS,AW,EW:RETUR 
N 

2940 INPUT#2,CL,X1,Y1,R,AS,AW,EW:CI 
RCLELCL3X1,Y1,R,AS,AW,EW,0:RET 
URN 

2958 INPUT#2,CL,XT,YT,TX$,XA,YA:SYM 
B0LTCL3XT,YT,TXt,XA,YA:RE TURN 
2960 INPUTS2,CL,XT,YT,TX*,XA,YA:SYM 
B0LCCL3XT,YT,TX$,YA,XA,1:RETUR 
N 

2978 INPUT#2,XA,YA:POS ITION XA,YA:P 
ATTERNCM03-8,P$POSITION XA,YA 
: PATTERNC83-8," " : RETUR 

N 

2988 B0XC831,1,584,187,0:RETURN 
2990 INPUT#2,BC : POKE$27D0,$3E,BC,$1 
, $CF, $6, $ED, $79, $C9 :USR< $2 71)0) 

: RETURN 

3800 INPUT#2,Z,PC:PAL Z,PC:RETURN 
3018 LABEL"LOERR":IF ERN=58 GOTO 38 
20 

3020 S0UND9,5 :RESUME2800 :'FILE NOT 
FOUND ect. 

3038 LABEL"SAVE" :USR($5767) 

3840 IF NOT FL RETURN 
3050 PRINT#1,BF 

3060 ONBFGOTO3070,3080,3070,3080,30 
90,3100,3108,3110,3110,3120,31 
30,3140,3150 

3870 PRINT#1,C0,XA,YA:RETURN 
3888 PRINT#1,C0,LX,LY,X1,Yl:RE TURN 
3090 PRINT#1,Z,X1,Y1,C0:RETURN 
3100 PRINT#1,C0,LX,LY,R,AS,AW,EW :RE 
TURN 

3110 PRINT#1,C0,TX,TY,TX$,XA,YA:RET 
URN 

3120 PR INT#1,XA,YA:RETURN 
3130 RETURN 

3140 PR INTttl,BC:RETURN 
3150 PRINT#1,Z,PC:RETURN 
3160 LABEL"ENDE" 

3170 E $="Sieher ? I J/N 1 GOSUB " E IN 
GABE" 

3188 IFB$<>"J"RETURN 
3190 IF NOT FL GOTO 3220 
3200 E$=DT$+NR$+" speichern ? CJ/ND 
:" :GOSUB"E INGABE" 

3210 IFB$O"N"CL0SE#l 
3220 BC = 0 : GOSUB"POKE" :K ILL : RUN"MENU 
E" 

3238 LABEL"EINGABE" 

3248 WA IT200 : B $= " " :BL = 0 

3258 CX = LEN<E$)*8+5 :SYMBOL 3,191,E$ 

,1,1 :B$="" 

3260 GE T T $ 

3270 SYMBOLCX,191,,1,1 
3280 I F T $=""GO T0 3260 
3290 SYMBOLC0DCX,191,"B",1,1 
3380 IFT$=CHR$<13)THEN BOXL0D1,190, 
539,198,0:RETURN 
3310 IFT$ = CHR$<16)G0T0"I)EL" 

3320 SYMBOLCX,191,T$,1,1:CX = CX +8:BL 
= BL +1 

3330 B$=B$+T$:GÖTO3260 

3340 LABEL"DEL" : CX = CX-8 

3350 IFCXCLEN(E$)#8+5 CX=LEN<E$)*8+ 

5 

3360 IFBL = 0 GOTO 3260 ELSE BL = BL-1 : 
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Siegerprogramm 


B$=LEFT$<B$ , BL) :G0T03268 
3370 LABEL"AUSWAHL" 

3380 BÜX0,8,585,188:BOX0,189,639,19 
9:BOX C 011,190,539,198,0: BOX587 
,0,639,188,0 

3390 V=3:F0RI=1T0A2:SVMBOL590,V,B$< 
I) ,1,1:V = V + 9:NEXT:L INEC 01586,0 
,586,188 

3400 BOX C011,190,638,198,0:SYMB0L54 
0,191,"MINI-CAD 800",1,1 
3410 RETURN 
3420 LABEL"AUSWERT" 

3430 L = LEN <B$) 

3440 FOR I = 1TOL 

3450 IFASC<MID$<B$, I,1)><$30 J= I : I 
= L 

3460 NEXT 

3470 XA=VAL<LEFT$<B$,J-l)) :VA=VAL<R 
IGHT$<B$,L-J>) 

3480 RETURN 
3490 LABEL" INFO" 

3500 BOX C 011,190,539,198,0:SVMB0L18 
, 191,"CCRI]=Menue/Funktion ausf 
Uhren CN3=Funktion rückgängig 
" , 1 , 1 

3510 RETURN 

3520 LABEL" INFO_l" 

3530 BOXC031,190,539,198,0:SYMBOL10 
,191, "Cursor pos i t ion ieren C 

S3 = Schnell CLT=Langsam C R 3 = R 
aster",1,1 
3540 RETURN 
3550 LABEL" INF0_2" 

3560 BOXC031,190,539,198,0:SYMBOL10 
,191,E $,1, 1 
3570 RETURN 
3580 LABEL"NE IN" 

3590 ON NE GOSUB 3610,3620,3630,364 
0,3650,3660,3670 
3600 RETURN 

3610 LINEC03LX,LV,X1,VI:X1=LX:Y1=LY 
: RETURN 

3620 SETCPT3X1,VI:RETURN > 

3630 BOXC03LX,LV,X1,VI:X1=LX:V1=LV: 
RETURN 

3640 PAINTCPT3X1,V1,C0rRETURN 
3650 C IRCLEC03LX,LV,R,AS:RETURN 
3660 CIRCLEC03LX,LV,R,AS,AW,EW,O:RE 
TURN 

3670 PAL0,0 :PAL1, 12:PAL2,11 :PAL3,15 
: RETURN 

3680 LABEL"FEHLER" 

3690 BOXE 011,190,539,198,0:SVMBOL20 
, 191, "F E H L E R 1,1 : SO 

UND9,5 

3700 WA IT 1008 : GOSUB"OUIT" : RESUME "ME 
NUE" 

3710 LABEL"FDERR" 

3720 IF ERN=50 GOTO 3770 ELSE IF ER 
N=58 GOTO 3820 

3738 BOXT0]1,190,638,198:SVMB0L5,19 
1,"Schon vorhanden .,.",i,l:SO 
UND9,3:WAIT900 
3740 BOXC0]1,190,638,198,0 
3750 RESUME310 

3760 LABEL 11 NÖL IS T " :RESUME210 
3770 'NOT READV 

3780 BOXC0T1,190,638,198,0:SVMBOL 5 
,191,"Diskette einlegen !!!",1 
, 1 

3790 GETT$: IFT$=""GOTO 3790 
3300 RESUME 
3810 'KEINE RAM-DISC 
3820 BOXC0D1,190,638,198,0:SVMBOL 5 
,191,"Keine RAM-Disc vorhanden 
!!! C CR 3", 1,1 . 

3830 GET T*;IF T$=""GOTO 3830 
3840 CLS : RUN 
3850 ' 

3860 VA=VA-PV : GOTO3940 

3870 XA = XA+PX : VA=VA-PV:GOTO3940 

3880 XA=XA+PX:GOTO3940 

3890 XA = XA+PX : VA=VA+PV:GOTO3940 

3900 VA=VA+PV :GOTO3940 

3910 XA = XA-PX : VA = VA + PV:GOTO3940 

3920 XA = XA-PX :GOTO3940 

3930 XA = XA-PX : VA=VA-PV 

3940 IFXA>584 XA = 584 


3950 IF VA>187 VA=187 
3960 IFXAC1 XA=1 
3970 IF VA<1 V A= 1 
3980 RETURN 

3990 LABEL"QU IT" : BOXC031,190,539,19 
8,0 

4000 BOX[03589,VV-i,637,VV+7,0:SVMB 
OL 590,VV,B$<ZV),1,1 
4010 SOUND50,1:RETURN 
4020 DA TA 19,MOVE,L I NE,BOX,CIRCLE,PA 
INT,SET,MANU.,BEMAß.,B.TEIL 
4030 DATATEXT,COLOR,PAL,BORDER,RAST 
ER,HCOPV,CLS,LÖSCH.,LOAD,ENDE 
4040 DATAschwar 2 ,b1 au,rot,magenta,g 
rün,cyan,gelb,weiß,grau,hellbl 
au 

4050 DATAhellrot,hellmagenta,heilgr 
ün,hellcyan,hellgelb,hellweiß 
4060 IFPEEK <22375) 020 1RUN"MENUE "EL 
SERETURN 

4070 RES T0RE4140:FORA=10496 TO 10596: 

READB : POKEA,B:NEXTA 
4088 IN I T"LPT:M0,S3" : PR INT/PCHR$<27 
) ; " 1" ; 

4890 FORA=@ T049 : PR INT/PCHR$<27);"K" 
;CHR $ <128);CHR$<2)j 
4100 FORB = 0 T03 : AD=32768+320*A+20*B 
4110 POKE$2A00,AD MOD 256:POKE$2A01 
, INT <AD/256) : USR <$2980,TX$,TX$ 
) 

4120 PRINT/PTX$; : NEXTB : PR INT/P:NEXT 
A 

4130 INIT"LPT :M0,S2" : PR INT/PCHR$<27 
);"2" : RETURN 

4140 DATA219,224,62,1,211,205,221,4 
2,0,42,62,4,50,2,42,62,20,50,3 
,42,33,0,43,62,8,58,4,42,221,7 
0,0,203,24,245,203,22,241,203, 
22,35 

4150 DATA58,4,42,61,50,4,42,14,0,18 
5,194,31,41,221,35,58,3,42,61, 
58,3,42,14,8,185,194,23,41,229 
,221,229,225,17,60,0,25,229,22 
1,225,225 

4168 DATA 58,2,42,61,50,2,42,14,0,1 
85,194,15,41,219,225,17,0,43,6 
,160,201 


100 

'PROGRAMMGENERATOR 

Ver 

s ion 

2.3 

110 

' < C)K laus Thiele 




120 

' 




130 

IN IT "CR T : M3 " : D T $= " 

Zeichnung 

Nr 

140 

IF PEEK < $ 1099)=0 M$ 

s II ^ II 

: M 0 $ = 

"M3 


" : P1 $="0 ,0 " : P2 $ =" 1, 

15" : 

ELSE 

M $ = 


"3" : MO $=" M4 " : P1$=" 1 

, 12" 

: P2 $ = 

"2, 


11" 

150 SVMBOL40,10,"PROGRAMMGENERATOR" 
,4,5 

160 ON ERROR GOTO 718 
178 CURS0R3,8 : PR INT"Installation:": 
LINE 24,72,127,72 

180 CURS0R3,18•PRINT"Speichern auf 
F1oppy-D isc oder RAM-Disc ? <F/ 
R) " 

190 GET T$: IF T$=""GOTO 190 
200 IF T$-"F"SM$="FD1:" :CURSOR50,10 
:PRINT": F loppy-D isc":ELSE IF T 
$="R"SM$="RAM : " : CURS0R58,10:PRI 
NT": RAM-Disc" ELSE SOUND 9,5:G 
OTO 190 

218 CURS0R7,11:PR INT"Laden von Flop 
py-Disc oder RAM-Disc ? <F/R)" 
220 GET T$ : IF T$=""GÖTO 220 
230 IF T$="F"LM$ = "FD1:" :CURSOR50,11 
: PR IN T" : F 1 oppy-Disc":ELSE IF T 
$-"R"LM $="RAM = " :CURSOR50,11:PR I 
NT": RAM-Disc" ELSE SOUND 9,5=G 
OTO 228 

248 CURS0R38,12:PRINT"Welche Zeichn 
ung Nr. : : INPUT" H";NR$ 

250 CURS0R3,13: INPUT"Ab welcher 2ei 
lennummer soll generiert werden 
?: " ; ZN 

260 SVMBOL 100,160,"Busy ...",7,3 
270 PR$="CAD.ASCII/"+RIGHT$<TI $,4) 
280 W0PEN#1,SM$+PR$ 


290 'GENERIEREN - 

380 PRINT#1,STR$<ZN)+"LABEL"+CHR$<3 

4)+"ZEICHNUNG"+CHR$<34)+":'-- 

-.. ;ZN = ZN + 10 

310 PRINT#1,STR$<ZN)+"IN IT"+CHR$<34 
> +"CRT : "+MO$+CHR$<34)+" :PAL "+P 
1 $ + " : PAL "+P2$ + " : RESTORE "+STR$ 
<ZN+170> :ZN=ZN+10 

320 PR INT#1,STR$ <ZN)+"P$ = CHR$ < $7E,$ 
7E , $7E,$7E,$7E^ 0)" : ZN = ZN + 10 
338 PRINT#1,STR$(ZN)+"READ BF : IF BF 
= 999 END" : ZN = ZN + 10 
348 PRINT#1,STR$<ZN)+"0N BF GOTO "+ 
S TR $ < ZN + 30)+","+STR$<ZN + 20> + "," 
+ S TR $ < ZN +30)+","+STR$<ZN+40>+", 
" +STR$ <ZN + 50>+","+STR$<ZN+60)+" 
, "+STR$<ZN+70> : ZN = ZN + 10 
350 PRINT#1,STR$<ZN> + "0N BF-7 GOTO 
" +STR$<ZN+78> + ","+STRI<ZN+80)+" 

, "+STR$<ZN + 90)+","+STR$<ZN + 100) 
+ " , "+STR$<ZN + 110)+","+STR$ <ZN + 1 
20) : ZN = ZN +10 
360 ' 

370 PRINT#1,STR$<ZN)+"READ CL,X1,V1 
,X2,V2 :LINECCL3X1,V1,X2,V2:GOTO 
"+STR$<ZN-30) : ZN=ZN+10 
388 PRINT#1,STR$<ZN)+"READ CL,X1,V1 
: SETCCL3X1,VI :G0T0"+STR$<ZN-48) 
:ZN=ZN+10 

390 PRINT#1,STR$<ZN)+"READ CL,X1,V1 
,X2,V2 :B0XCCL3X1,V1,X2,V2:GOTO" 
+ S TR $ < ZN-50) : 2N = 2N +10 
400 PRINT#1,STR$<2N)+"READ CZ,X1,V1 
,CL :PAINTCCZ3X1,V1,CL:GOTO"+STR 
$ <ZN-60) :ZN = ZN + 10 

410 PRINT#1,STR$<ZN)+"READ CL,X1,V1 
,R,AS,AW,EW :CIRCLECCLDX1,V1,R,A 
S,AW,EW :GOTO"+STR$<ZN-70) :ZN = ZN 
+ 10 

420 PRINT#1,STR$<ZN)+"READ CL,X1,V1 

,R,AS,AW,EW:CIRCLECCLDXI,VI,R,A 
S,AW,EW,0 :GOTO"+STRf<ZN-80) :ZN = 
ZN +10 

430 PRINT#1,STR$ <ZN)+"READ CL,TX,TV 
,TH $,XA,VA : SVMBOLCCL1TX,T V,TX $, 
XA , VA : GOTO"+STR$ <ZN-90) :ZN = ZN + 1 
8 

448 PRINT#1,STR$<ZN)+"READ CL,TX,TV 
, TX$,XA,VA:SVMBOLCCL1TX,TV,TX$, 
VA,XA,1 :GOTO"+STR$<ZN-180) :ZN = 2 
N + 10 

450 PRINT#1,STR$<ZN)+"READ XA,VA : PO 
SITIONXA,VA :PATTERNC"+M$ + "3-8,P 
$:POS I T IONXA,VA : PATTERNC81-8," + 
CHR $ < 34)+" "+CHR $ < 34)+": 

GOTO" +STR$<ZN-110) :ZN = ZN + 10 
468 PRINT#1,STR$<ZN)+"CLS:GO TO"+STR 
$<ZN-120) :ZN = ZN + 10 
470 PRINT#1,STR$<ZN)+"READ CZ:POKE$ 
27D0,$3E,CZ,$1,$CF,$6,$ED,$79,$ 
C9 : USR < $27D0) :GO TO"+STR $<ZN-138 
):ZN=ZN+18 

480 PR INTttl,STR$<ZN)+"READ C1,C2:PA 
L C1,C2 :GOTO"+STR$<ZN-140) :ZN = Z 
N + 10 
490 ' 

508 ZN$=STR$<ZN)+"DATA " 

510 R0PEN#2,LM$+DT$+NR$ 

520 INPUT#2 , D$ : IF LEFT$<D$,1) = " "D$ 
=RIGHT$<D$,LEN<D$)-1) 

530 ZN$ = ZN$ +D$ 

540 IFEOF<#2)GOSUB670 : PR INT#1,ZN $ : C 
L0SE#2 :BOXC010,140,639,199,0:G0 
TO 570 

558 IFLEN<ZN$)>150PRINT#1,ZN$:ZN=ZN 
+ 10 : CURSORS1,13:PRINTZN:S0UND9, 
1:ZN$ = STR$<ZN)+"DATA " : ELSE ZN$ 

= ZN$ + " , " 

560 GOTO 520 
570 ON ERROR GOTO 720 
580 MUS IC"#B0 " : SVMBOL128,170,"Weite 
r ? <J/N)",3,4 

590 GET T $: IF T$=""GOTO 590 
608 IF T$O"J"ZN = ZN + 10 = PRINT#1,STR$ 
<ZN)+"DATA 999" :CLOSE :GOTO 650 
610 BOX C 0 3 0,140,639,199,0:CURSOR3 0, 
15 : ZN = ZN + 10 
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Siegerprogramm 


620 PRINT"Welche Zeichnung Nr.: 
INPUT" B";NR$ 

630 CURSOR30,15:PRINT SPC<30) : SVMBO 
L100,160/‘Busy . , , " j7j 3 
640 CURS0R52,12 :PRINT NRI:G0T0 500 
650 BOXC0J8,140,639,199,0:SVMBOL100 
,170,"Moment bitte ...",3,4 
660 RUN SM I+PR $ , ft 
670 LS=LEN < ZN I > 

680 IF RIGHT$<ZNI, 1)0" , "RETURN 
690 LS = LS-1 :ZN* = LEFT*<ZN*,LS> :GOTO 
680 

7 00 ✓- 

710 BOX [0110,140,639,199,0 : MUS IC"+B0 
C0":KILL:RESUME 240 
720 BOXC0D0,140,639,199,0:MUS IC"+B0 
C0":RESUME 580 


100 "ZEICHNUNGSTRANSVERPROGRAMM 
110 ' 

120 INIT "CR T:M3" 

130 ON ERROR GOTO 360 
140 SYMBOL0,10,"TRANSCAD",5,4 
150 CURSORS,7:PRINT"QUELLE: FD 1 o 

d. RAM ? (F/R)"; 

160 GET TI : IF T*=""G0T0 160 
170 IF TI="F"LMI="FD1:"ELSE IF Tl=" 
R"LM1= " RAM:"ELSE S0UND9,3 :GOTO 
160 

180 PRINT" :";T $ 

190 PRINT" ZIEL: FD 1 od. RAM ? 

< F/R)"; 

200 GET TI : IF TI=""GOTO 208 
210 IF TI="F"SMI="FD1:"ELSE IF Tl=" 
R"SM$="RAM:"ELSE S0UND9,3:GOTO 
200 

220 PRINT" : "TI :PRINT 

230 INPUT"QUELLE: Zeichnung Nr."; 

L VI 

240 INPUT" ZIEL: Zeichnung Nr."; 

SVI 

250 PRINT"BTRANSVERIERTE DATEN: 0BO 

260 CURSORS,15 : PR INT"MOMENT BITTE . 

278 W0PEN41,SMI+"Zeichnung Nr."+SVI 
280 R0PEN#2,LMI+"Zeichnung Nr."+LVI 
290 INPUT#2,DT$:PRINT#1,DTI:BZ=BZ+1 
:CURSOR20,13:PRINT BZ 
300 IF E0F(#2)CL0SE-CURSOR©,15:PRIN 
T"*# FERTIG ** " :SOUND50,5:G 

OTO320 

310 GOTO 290 

320 SÖUND50,3 :CURSOR0,17:PRINT"CW] = 
Weiter CE3=Ende" 

330 GET TI:IF TI=""GOTO 330 
340 IF T1="E"RUN"MENUE"ELSE RUN 

350 ^- 

360 S0UND9,3:CURSOR0,15:PRDNT"*# FE 
HLER *# " : RESUME 320 


100 "BAUTEIL LÖSCHEN 
110 " 

120 INIT "CRT:M3":DIM BTI<100>:DEFA 
ULT FD 1 

130 SVMBOL60,0,"LÖSCHEN VON BAUTEIL 
EN",3,3 

140 CURS0R8,4-PRINT"Vorhandene Baut 
eile:": TA = 8:PRINT 
150 ON ERROR GOTO"NOLIST" 

160 ROPEN#1,"BAUTEILLISTE":INPUT#1, 
BT 

178 FÖR 1 = 1 TOBT : INPU T#1,BTI ( I) : PR INT 
TAB<TA) ;BTI< I >; :TA=TA+16 
180 IF TA>70 PRINT : Tft = 8 
190 NEXT :CLOSE :PRINT"D" :FL = 0 
208 PRINT TAB(8); : INPUT"We 1 ches Bau 
teil löschen ?: " ; BL I : BBl = BLI + " 
. B TL " 

210 F0RI = 1T0BT : IFBLI = BTI<I)FL=I 
220 NEXT : IF FL = 0 GOTO 308 
238 FOR I =FL TO BT : BTI< I >=BTI(I+1) : 
NEXT : B T = B T-1 

240 DELETE BBI : DELETE"BAUTEILLISTE" 

: IF BT = 0 GOTO 270 

250 W0PEN#1,"FD 1 : BAUTEILLISTE":PRIN 
T#1,B T 


260 FOR 1 = 1 TO BT :PRINT#1,BTI<I> :NE 
XT : CLOSE 

270 SOUND50,3:CURS0R8,23:PRINT"CWT= 
Weiter CEl=Ende" 

280 GET TI : IF TI=""GOTO 280 
290 IF T1= "E" RUN"MENUE" ELSE RUN 
300 S 0 U N D 9,3 CURSORS , 23 : PR INT "Fehle 
r !!! C N 3 = Nochma1 CE3=Ende" 

310 GET T $ : IF T l=""GOTO 318 
320 IF TI="E" RUN"MENUE" ELSE RUN 
330 L ABEL" NOL IST" :PRINT"|J" ; TAB<8> ; " 
Keine ! ! ! » : RESUME 300 


108 "HAUPTMENUE MZ-CAD 
110 "(OK laus Thiele 

120 " 

130 IF PEEK < 11099)=0 I N I T"CRT : M3" : M 
0=1 : ELSE IN I T"CRT : M4" : PALI,12 : P 
AL2,11 : M0 = 3 

140 DIM PRI(6) : RESTORE720:FOR1 = 1T06 
:READPRI( I) : NEX T 

150 GOSUB"TITELBILD" : SVMBOL50,142, " 
PROGRAMMAUSWAHL",1,1:LINE49,150 
,171,150 

168 V=155 :F0RI = 1T03 :SVMB0L52,V,PRI< 
I) ,1,1:V=V + 10 : NEXT:Y=155:FOR1 = 4 
T06 :SYMBOL220,Y,PRI<I) ,1,1 : Y=Y + 
10 : NEXT 

170 SYMBOL20,190, "Mit Cursortasten 
auswählen und CCRU drücken",1,1 
180 X = 52 : Y=155:Z=1 

190 B0XCM03X-1,Y-1,X+8*LEN<PRI<Z>), 
Y+7,M0 : SYMBOL C0IIX, Y, PR KZ >,1,1: 
S0UND9,1 

200 GETTI : IF(TI=CHRI(13> >OR(STRIG<0 
> O0 > GO T03 10 

210 IFST ICK<0)C>0 GOTO 230 
220 GOTO 200 

230 BOXC03X-1,Y-1,X+8#LEN<PRI<Z)),Y 
+7,8:SYMBOLX,Y,PRI<Z>,1,1 
240 IFSTICK<0)=5Y=Y+10:Z=Z+1:ELSEIF 
STICK(0) = 1Y=Y-10:Z = Z-1 
250 IFST ICK<0>=3X = X + 168:2 = 2+3:ELSEI 
FSTICK(0)=7X=X-168:Z=2-3 
260 IFX>220X = 52 : Y=Y + 10 :Z = Z-5 : ELSE IF 
XC52 X = 220 : Y=Y-10:Z = Z+5 
278 IF(Y>175>AND(X=52)Y=155:Z=1:ELS 
E IF(Y>175)AND(X=220> Y=155:Z = 4 
280 IF <Y<155)AND(X=52)Y=175 :Z = 3 :ELS 
E IF<Y<155>AND(X=220>Y=175:Z=6 
298 IFZ<0X = 220 : Y=175:Z = 6:ELSEIF2>6X 
= 52:Y=155 : Z=1 
300 GOTO 190 

310 BOXC0:i,140,365,198,0 
320 ON Z GOTO 330,340,350,360,370,3 
80 

330 RUN "MZ-CAD" 

340 RUN "BAUTE ILED I TOR" 

350 RUN "GENERATOR" 

360 RUN "TRANSCAD" 

370 RUN "BTL.DELETE" 

380 INIT "CRT : M3" : END 
390 LABEL"T I TELB ILD" :AD = 2236S 
400 RESTORE540 :BOX0,0,639,199 
418 READBF : IFBF = 999RETURN 
428 ONBFGOTO 440,430,448,450,468,47 
0,480,490,500,510 

430 READCL,X1,Y1,X2,Y2:GOSUB520:LIN 
ECCLTX1,Y1,X2,Y2:G0T0418 
440 READCL,XI,Y1 : GOSUB520:SETCCLTX1 
, Y1 : GOTO410 

458 READCL,XI,Y1,X2,Y2:G0SUB528B0XC 
CLJX1,Y1,X2,Y2:GOTO410 
468 READCZ,X1,Y1,CL : IFMö=IGOT0410EL 
SEPAINTCCZDX1, Y1,CL:GOTO410 
470 READCL,X1,Y1,R,AS,AW,EW:G0SUB52 
0 :CIRCLEHCLDX1,Y1,R,AS,AW,EW:GO 
TO410 

480 READCL,XI,Y1, R,AS,AW,EW:G0SUB52 
8 :CIRCLECCLTX1,Y1,R,AS,AW,EW,0: 
G0T0418 

498 READCL,TX,T Y,TXI,XA,YA:GOSUB520 
: SYMBOLCCL 1 TX,TY,TXI,XA,YA:GO TO 
418 

508 READCL,TX,TY,TXI,XA,YA:G0SUB528 
:SYMBOLCCLDTX,TY,TXI,YA,XA,1 : GO 
TO410 


510 READCL : POKEAD,CL:AD = AD +1:GOT041 
0 

528 IF M0=1 CL=1 
538 RETURN 

540 DATA2,3,108,87,132,57,2,3,120,9 
0,162,63,2,3,162,63,192,21,2,3, 
192,21,132,57,2,3,188,87,128,98 
,2,3,102,98,114,93,2,3,114,93,1 
14,102,2,3,102,98,84,96 
558 DATA2,3,84,96,84,111,2,3,84,111 
,114,182,2,3,95,101,108,92,2,3, 
107,91,113,88,2,3,115,89,112,92 
,2,3,120,84,174,36,2,3,120,78,1 
50,51,10,254,6,3,192,111,108 
560 DATA.19444444,3.1415927,1.39626 
34,2,3,180,111,204,111,2,3,186, 

114.198.108.3.3.96.102.3.3.93.1 
01,3,3,94,102,2,3,132,63,138,57 
,10,78 

570 DATA5,1,94,98,3,5,2,154,58,3,2, 
0,108,92,95,101,3,0,96,102,3,0, 
94,102,3,8,93,101,10,157 
580 DATA2,3,313,108,306,102,2,3,306 
,102,306,69,2,3,306,69,318,63,2 
,3,318,63,366,63,2,3,366,63,366 
,69,2,3,366,69,330,69,2,3,336,6 
9,318,75,2,3,318,75,318 
590 DATA96,2,3,318,96,330,102,2,3,3 
36,102,366,102,2,3,366,102,366, 
108,2,3,366,108,318,108,2,3,408 
,108,396,108,2,3,396,108,396,69 
,2,3,396,69,408,63,2,3 
600 DATA408,63,450,63,2,3,450,63,46 
2,69,2,3,462,69,462,108,2,3,462 
,108,450,108,2,3,408,75,420,69, 
2,3,420,69,438,69,2,3,438,69,45 
0,75,2,3,458,75,450,84 
610 DATA2,3,450,34,408,84,2,3,488,8 

4.488.75.2.3.408.108.488.98.2.3 
,408,90,450,90,2,3,450,90,450,1 
08,2,3,492,108,492,63,2,3,492,6 

3.540.63.2.3.540.63.552 

620 DATA69,2,3,552,69,552,102,2,3,5 
52,102,548,108,2,3,540,108,492, 
<108,2,3,504,102,528,102,2,3,528 
,102,540,96,2,3,540,96,540,75,2 
,3,540,75,528,69,2,3,528 
630 DATA69,584,69,2,3,504,69,504,10 
2,2,3,318,63,584,6,2,3,584,6,36 
6,63,2,3,366,69,584,6,2,3,318,9 

6.393.72.2.3.330.102.393.78.2.3 
,366,182,393,90,2,3,366 

640 DATA 108,393,96,2,3,349,57,390,5 
7,2,3,398,57,390,62,2,3,390,91, 
390,97,2,3,344,69,344,88,2,3,38 

8.92.355.92.2.3.355.92.345.87.2 
,3,408,63,584,6,2,3,584 

650 DATA6,458,63,2,3,462,69,584,6,2 
,3,408,84,439,72,2,3,483,108,44 
0,92,2,3,462,108,489,84,2,3,429 
,57,465,57,2,3,465,57,476,62,2, 
3,476,62,476,95,2,3,426 
660 DATA69,426,77,2,3,426,77,450,77 
,2,3,426,90,426,99,2,3,492,63,5 
84,6,2,3,584,6,540,63,2,3,552,6 

9.584.6.2.3.584.6.584.6.2.3.552 
,102,584,6,2,3,504,102 

670 DATA529,72,2,3,528,102,537,87,2 
,3,503,57,545,57,2,3,545,57,556 
,62,2,3,556,62,556,89,2,3,515,6 
9,515,89,2,3,515,89,535,89,2,3, 
535,89,541,86,3,0,541 
680 DATA86,3,3,538,86,10,46 
690 DATA5,2,354,60,3,5,2,434,60,3,5 
,2,534,60,3,5,2,514,100,3,5,2,4 
34,80,3,5,2,354,100,3,5,1,314,1 
00,3,5,1,414,70,3,5,1,534,70,3, 
10,67,10,72,10,80 

700 DATA8,3,262,69,MINI-,1,1,10,281 
,8,3,228,21,M2-800,3,3,8,3,258, 
12,-- SHARP --,1,1,8,3,316,112, 
Copyright 1985 Klaus Thiele,1, 
1,999 

720 DATAMZ-CAD,Bautei leditor,Progra 
mmgenerator,Transcad,Bautei1 lö 
sehen, ENDE 
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Numerologie 


Lebenswillen 


Rechner: MZ-700/800 
Programmname: Lebenszahl 
Programmlänge: 28600 Bytes 
Programmiersprache: BASIC 


Das Programm "Lebenszahl” will in 
spielerischer Weise in die Numero¬ 
logie einführen. 

Die Numerologie entstand aus der 
Kabbalistik. Sie lehrt, daß jeder 
Buchstabe zugleich auch einen Zahl¬ 
wert hat und besagt, daß ‘jeder 
Name wesentliche Informationen über 
Bestimmung und Charakter seines 
Trägers (sei er Person oder Sache) 
enthält. 

Die Decodierung der einzelnen Na¬ 
mensbuchstaben in Zahlwerte, deren 
Addition, sowie deren Reduzierung 
auf einen Endwert unter ”10” bilden 
den Schlüssel zu diesen verborgenen 
Informationen. 

Dieses Programm erhebt allerdings 
keineswegs den Anspruch, alle nume¬ 
rologischen Informationen auszuge— 
ben, sondern will dem Benutzer 
helfen,. sich selbst und andere auf 
spielerische Weise deutlicher zu 
erkennen und seine Menschenkenntnis 
zu verbessern. 

Man sagt nicht zu unrecht: "NOMEN 
(und Daten) EST OMEN !" 

Das ..Programm umfaßt drei Punkte, 
die über ein Hauptmenü angesteuert 
werden: 

1.Namenszahl 

Dem Unterprogramm vorangestellt ist 
eine Harmonietabelle, welche auf¬ 
zeigt, wie sich nach Ansicht der 
Numerologen die verschiedenen Na¬ 
menszahlen miteinander vertragen. 

Es ist erapfelenswert, zuerst den 
ganzen Namen zu berechnen, um da¬ 
nach Teildeutungen vorzunehmen. So 
offenbart z.B. der Nachname das 
Bild, das ein Mensch in die Außen¬ 
welt projeziert, der Vorname sein 
Bild vor Freunden und guten Bekann¬ 
ten. Bei mehreren Vornamen ist 
immer der Rufname ausschlaggebend, 
eventuell auch der Spitzname. Um¬ 


laute werden stets als ae, oe usw. 
gewertet. 

Der Computer nennt dann die haupt¬ 
sächlichen positiven, sowie auch 
die negativen Aspekte der jeweili¬ 
gen Namenszahl. Es gilt aber zu 
bedenken, daß kein Mensch zugleich 
alle positiven, wie negativen 
Aspekte seines Wesens ausleben 
kann. Verschiedene Aspekte wird er 
sogar weitgehend unterdrückt oder 
abgebaut haben. 

2. Geburtszahl 

Nicht nur der Name, sondern auch 
das .. Ge! ? U] f tsdatum eines Menschen 
verrät.einiges über seinen Charak¬ 
ter. Dieses Unterprogramm errechnet 
die Geburtszahl und wertet sie aus. 
Die Analyse der Geburtszahl ent¬ 
schleiert die Wesensanlagen, die 
seinem Träger "in die Wiege gelegt” 
wurden, während die Namenszahl mehr 
das aufzeigte, was ein Mensch aus 
seinem Leben machte. Die Geburts- 
^^Ll entdeckt immer die verborgenen 
Anlagen und Möglichkeiten, die, 
auch wenn verschüttet, so doch noch 
immer erreichbar und wirksam sind. 

3. Tageszahl 

Zur Berechnung der Tageszahl ist 
das Wissen um die Namenszahl, sowie 
die Geburtszahl (Unterprogramm 1+2) 
Voraussetzung. 

Die Numerologie besagt, daß jeder 
einzelne Tag eine Qualität hat und 
daß^es ratsam ist, diese Tagesqua- 
lität zumindest dann zu berücksich¬ 
tigen, wenn es um weitreichende 
Entscheidungen geht. 

Die iageszahl kann aber auch durch¬ 
aus behilflich sein, die Leere 
mancher Tage zu überwinden, indem 
man sich von ihrem Inhalt zum Tun 
inspirieren läßt. 

Selbstverständlich ist es möglich, 
immer wieder zum Hauptmenü zurück— 
zukehren und so nach und nach den 
ganzen Freundes- und Bekanntenkreis 
zu durchleuchten. 

Ich wünsche viel Spaß dabei. 

Renate Steinbach 
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Numerologie 


10 

REM ZAHLEN DES LEBENS 



618 

PRINT 




1170 

LET G = G + VAL(Fi) 

20 ! 

REM FUER CHIP SPECIAL 



628 

PR INTTAB(2)" 

TASTE 

"2 

1180 

NEXT I 

30 

REM VON 

RENATE STEINBACH 



" DRUECKEN" 



1190 

LET Hi=STRi<G) 

40 

REM 





638 

PRINT: 

PRINT :PRINT 



1200 

LET L = LEN <Hi ) 

75 

CLS 





640 

PR INTTAB<2)"BERECHNUNG 

UND DEUT 

1210 

FOR I = 1 TO L 

80 

PRINT 






UNG DER" 



1220 

LET Ki=MIDi<Hi,1,1) 

98 

PRINT 





658 

PRINT 




1230 

LET P - P + VAL <Ki> 

100 

PRINT" 

'//mm 


y, 

y, y, 

660 

PR INTTAB<2)"TAGESZAHL - 

" 


1240 

NEXT I 






678 

PRINT 




1258 

ON P GOTO 1300,1700,2108,2580, 

110 

PRINT" 

'/, 

0 # 

y, 

y, y, 

680 

PR INTTAB <2) " 

TASTE 

"3 


2980,3300,3700,4100,4500 


'/, 

m '/," 





" DRUECKEN" 



1300 

REM AUSWERTUNG DER ZAHL 1 

120 

PRINT" 

% uv, y////////, % 

690 

GET A 




1301 

CLS 


m 





700 

ON A GOTO 750,10000,20800 


1302 

PRINT:PRINT:PRINT 

130 

PRINT" 

'/, '/, 

'///// 

y, y, 

y, y, 

710 

GOTO 690 



1304 

PR INT"DIE NAMENS2AHL FUER" 


'/, 

y, m" 




750 

REM HARMONIETABELLE 



1306 

PRINT :PRINT 

140 

PRINT" 

'//mm /, 


y, y, 

y, y, 

751 

CLS 




1308 

PR INTTAB<4> Ni 


### ### # # " 




752 

PRINT: 

PRINT 



1310 

PRINT : PR IN T 

150 

PRINT: 

PRINT 




753 

PRINT" 

ZUVOR EINE UEBERSICHT 

DER 

1312 

PRINT"LAUTET:" 

160 

PRINT" 


y/m y/m 

y/m 


HARMONIEN: " 



1314 

PRINT :PRINT:PRINT 


" 





754 

PRINT : 

PRINT : PR IN T 



1316 

PRINT TAB<10)"$* 1 #*" 

170 

PRINT" 

V ♦ 

y, 

y, y, 

y, 

755 

PRINT" 

HARMONIE 


D 

1318 

PRINT:PRINT:PRINT 


♦ # 

" 





ISHARMONIE" 



1320 

PR INT"D IE EINS IST DIE ZAHL DE 

180 

PRINT" 


y. 

y, m 

y/m 

756 

PRINT 





S URSPRUNGS. " 


" 





757 

PRINT" 

1 1 MIT 2-6 



1322 

PRINT"SIE STEHT FUER DAS BAUEN 

190 

PRINT" 

* 4 

y, 

y, y. 

y. 


1-8-S 

1" 




DE, " 


4t * 

11 




758 

PRINT" 

2 2-4-8 



1324 

PRINT "SCHOEPFERISCHE, STARKE." 

200 

PRINT" 


y/m y/m 

y/m 


7-9" 




1326 

PRINT : PR INT 


" 





759 

PRINT" 

3 1-3-5-8 

" 


1328 

PRINTTABC15)"W-TASTE DRUECKEN" 

210 

PRINT : 

PRINT : PR INT 



768 

PRINT" 

4 4-7-9 



1330 

GET QWi 

220 

PRINT" 

# '///// 

y/m 

y/m y, 

'/ 


3-5" 




1332 

IF QWi O "W" GOTO 1338 


'///// 

'/////////," 




761 

PRINT" 

5 5 



1334 

CLS 

230 

PRINT" 

'/, V, 

y, y, 

y, m 

y. 


1-4-9 

" 



1336 

PRINT:PRINT 


'/, 

'/////," 




762 

PRINT" 

6 6-2 



1338 

PR INT"PÖSITIVE ASPEKTE:" 

240 

PRINT" 

y, m 

m 

y// y,y,y, 


7 " 




1339 

PRINT 


y/m 

y, •• 




763 

PRINT" 

7 4-7-9 



1348 

PRINT"-STARKER WILLE -Z I ELGER I 

250 

PRINT" 


y, y, 

y, y, 

'm 


1-8" 





CH TE TER EHRGEIZ" 


# " 





764 

PRINT" 

8 2 



1342 

PRINT"-FUEHRERNATUR -DURCHSET 

260 

PRINT" 

mm '//m 

y/m 

y/m y, 

y, 


1-8" 





ZUNGSKRAFT" 


'/////, 

y, n 




765 

PRINT" 

9 4-7-9 



1344 

PRINT"-KREATIVITAET -GROSSZUE 

270 

PRINT 






1-5" 





GIGKEIT" 

280 

PRINT" 



COPV 1985 

766 

PRINT : 

PRINT :PRINT:PRINT 



1346 

PRINT"-DVNAMIK -UNABHAEN 


BV R.STEINBACH" 




767 

PRINT 

TAB<15)"W-TASTE DRUECKEN" 


GIGKEIT" 

290 

FOR I 

= 1 TO 3000 : NEXT I 


768 

GET QWi 



1348 

PR INT"-ENERGIE -ORGAN ISA 

380 

CLS 





769 

IFQWi 

O "W" GOTO 768 




T IONS TALENT " 

310 

PRINT: 

PRINT 




800 

CLR 




1350 

PRINT:PRINT:PRINT 

320 

PRINT 

"DIE KLEINSTE QUERSUMME E 

810 

CLS 




1352* 

PRINT " NEGATIVE ASPEKTE:" 


INER ZAHL" 

330 PRINT "BZW.DES ZAHLWERTES VON BU 
CHSTABENKETTEN" 

340 PR INT"öFFENBART EINIGE CHARAKTE 
RISTIKA" 

350 PRINT" IHRES URSPRUNGS." 

360 PRINT :PRINT 

370 PRINT"DIES TRIFFT BESONDERS FUE 
R DIE" 

380 PRINT"ENDZAHLEN VON NAMEN UND G 
EBURTSDATEN ZU." 

385 PRINT 

390 PR IN T "D IESES PROGRAMM SOLL IHNE 
N HELFEN," 

408 PR INT "AUF SPIELERISCHE WEISE IH 
RE SELBST-" 

410 PRINT "UND MENSCHENKENNTNIS ZU V 
ERBESSERN." 

428 PRINT :PRINT 

430 PR IN T"SIE KOENNEN UNTER DREI PR 


820 REM BERECHNUNG DER NAMENSZAHL 

830 PRINT :PRINT:PRINT 

840 PRINT"NACH DEN ALTEN LEHREN VER 
SCH I EBENER" 

850 PRINT"KULTURKREISE ENTSPRICHT J 
EDER BUCHSTABE" 

360 PRINT"ZUGLEICH AUCH EINEM ZAHLW 
ERT." 

370 PRINT"FOLGLICH LASSEN SICH ALLE 
WORTE UND" 

888 PR INT"NAMEN IN ZAHLEN UMWANDELN 

890 PRINT:PRINT:PRINT 

900 PRINT"WUENSCHEN SIE DIE NAMENSZ 
AHL EINER" 

910 PRINT"PERSON ZU ERFAHREN, SO GE 
BEN SIE BITTE" 

920 PRINT"DEREN VOR- UND ZUNAMEN EI 
N. " 

930 CURSOR 6,20 



OGRAMMARTEN" 



940 

INPUT Ni 

1704 

440 

PR INT"WAEHLEN." 



950 1 

FOR I = 1 TO LEN(Ni) 

1706 

450 

PRINT :PRINT:PR IN T 



960 i 

LET Bi=MIDi(Ni,1,1) 

1708 

460 

PRINT"WENN SIE BEREIT SIND, 

, DRU 

970 i 

LET C = ASC <Bi)-16 

1710 


ECKEN SIE" 



988 

IF C > 57 LET C = C - 9 

1712 

470 

PRINT"BITTE DIE 'W'-TASTE.' 


990 

IF C > 57 LET C = C - 9 

1714 

480 

GET Ai 



1000 

LET CTi = CTi+CHRi<C) 

1716 

490 

IF AiO"W" GOTO 480 



1010 

NEXT I 

1718 

585 

CLR 



1028 

LET L = LEN<CTi) 


506 

CLS 



1030 

FOR I = 1 TO L 

1720 

518 

PRINT:PRINT:PRINT 



1040 

LET NZi=MIDi<CTi,I,1) 


520 

PR INTTAB(2)"BERECHNUNG 

UND 

DEUT 

1050 

LET NZ = NZ + VAL(NZi) 

1722 


UNG DER" 



1060 

NEXT I 


530 

PRINT" 



1070 

LET Zi = S TRi<NZ) 

1724 

540 

PR INTTAB<2)"NAMENSZAHL 

- " 


1080 

LET L = LEN <Zi) 

1726 

550 

PRINT 



1090 

FOR I = 1 TO L 


560 

PR INTTABC2)" 

TASTE "1 

1100 

LET Ci=MIDi<Zi,I,1) 

1728 


" DRUECKEN" 



1110 

LET D = D + VALCCi) 

1730 

570 

PRINT :PRINT:PR IN T 



1128 

NEXT I 

1732 

580 

PR INTTAB<2>"BERECHNUNG 

UND 

DEUT 

1138 

LET Ei=STRi<D) 

1734 


UNG DER" 



1140 

LET L = LEN <Ei) 

1736 

590 

PRINT 



1150 

FOR I = 1 TO L 

1738 

600 

PR INT TAB<2>"GEBURTSZAHL 



1160 

LET Fi = M IDi<Ei,I,1) 

1740 


1353 PRINT 

1354 PRINT"-EGOISTISCH -DICK 

KOEPFIG" 

1356 PR INT"-LATENTER JAEHZORN -VERB 
IRGT GEFUEHLE" 

1358 PRINT "-GEDANKENLOS -HERR 

SCHSUCHT" 

1368 PRINT"-MANGELNDER TAKT -VERL 
ETZEND" 

1362 PRINT :PRINT:PRINT 
1364 PRINT TABC10)"WEITERE BERECHNU 
NGEN ( J/N)" 

1366 GET QWi 

1368 IF QW $ = "J" GOTO 505 
1370 IF QW $ = "N" GOTO 30000 
1372 GOTO 1366 

1700 REM AUSWERTUNG DER ZAHL 2 

1701 CLS 

1702 PRINT :PRINT:PRINT 

1703 PR INT"DIE NAMENSZAHL FUER" 
PRINT :PRINT 
PRINT TAB(4) Ni 
PRINT :PRINT 
PR INT"LAUTET:" 

PRINT :PRINT:PRINT 
PRINT TAB<10)"** 2 **" 

PRINT :PRINT:PRINT 
PRINT"DIE ZWEI ALS ZAHL DES EW 
IGWEIBLICHEN" 

PR INT "KENNZEICHNET PASSIVITAET 
UND SEHN-" 

PRINT "SUCHT NACH HARMONIE UND 
FRIEDEN." 

PRINT :PRINT 

PRINT TABC15)"W-TASTE DRUECKEN 


-TAKT" 
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1742 PRINT"-KOOPERATION -KANN 2UH 
OEREN" 

1744 PRINT"-ZUVERLAESSIG -FORDERT 
WENIG" 

1746 PRINT"-VERSOEHNLICH -SUCHT HA 
RMONIE" 

1748 PRINT-PRINT:PRINT 

1758 PRINT"NEGA TI VE ASPEKTE:" 

1752 PRINT 

1754 PRINT"-WEICHT SCHWIERIGKEITEN 
AUS" 

1756 PR INT"-RASTLOS -NERVOES" 

1758 PR INT"-BEEINFLUSSBAR, AUCH 2UM 
BOESEN" 

1768 PR INT"-EXTREME ST IMMUNGSUMSCHW 
UENGE" 

1762 PRINT-PRINT:PRINT 
1764 PRINT TAB <10)"WE ITERE BERECHNU 
NGEN < J/N)" 

1766 GET QW* 

1768 IF QW* = "J" GOTO 505 
1770 IF QW* = "N" GOTO 30000 
1772 GOTO 1766 

2100 REM AUSWERTUNG DER 2AHL 3 

2101 CLS 

2102 PRINTrPRINTrPRINT 

2104 PRINT"DIE NAMENS2AHL FUER" 

2106 PRINT : PR IN T 
2108 PRINTTABC4) N* 

2110 PRINT : PR IN T 
2112 PR INT"LAUTET : " 

2114 PRINT-PRINT :PRINT 
2116 PRINTTABC10)" # # 3 **" 

2118 PRINT:PRINT :PRINT 
2120 PRINT"DIE DREI IST DIE 2AHL DE 
R ZEUGUNG" 

2122 PRINT"UND DER SCHOEPFUNG." 

2124 PRINT"SIE STEHT FUER VIELSEITI 
OE TALENTE." 

2126 PRINT : PR IN T 

2128 PRINT TABC15)"W-TASTE DRUECKEN 
2130 GET GW* 

2132 IF GW* <> "W" GOTO2130 
2134 CLS 

2136 PRINT:PRINT 

2138 PRINT"POS ITI VE ASPEKTE:" 

2148 PRINT 

2142 PRINT"-VIELSEITIGE TALENTE -EN 
THUSIASMUS" 

2144 PRINT"-LERNBEREITSCHAFT 
NAMISCH" 

2146 PRINT"-TATKRAEFTIG 
SELLIG" 

2148 PR INT"-GUTE UNTERHALTER 
TUERL ICH" 

2150 PRINT :PRINT-PRINT 
2152 PRINT"NEGA TI VE ASPEKTE:" 

2154 PRINT 

2156 PRINT"-ZERSPLITTERT SICH 
T" 

2158 PR IN T"-ZU MÖDEOR I ENT I ERT 
NFLUSSBAR" 

2160 PRINT"-STURHEIT 
ASTISCH" 

2162 PRINT"-EGOIST ISCH 
RIALISTISCH" 

2164 PRINT:PRINT .PRINT 
2166 PRINT TAB<10)"WEITERE BERECHNU 
NGEN (J/N)" 

2168 GET GW* 

2170 IF GW* = "J" GOTO 505 
2172 IF GW* = "N" GOTO 30000 
2174 GOTO 2168 

2580 REM AUSWERTUNG DER ZAHL4 

2581 CLS 

2502 PRINT :PRINT:PRINT 
2504 PRINT "DIE NAMENSZAHL FUER" 

2506 PRINTrPRINT 
2508 PRINT TAB(4> N* 

2510 PRINT:PRINT 
2512 PRINT"LAUTET:" 

2514 PRINT : PR INT:PRINT 
2516 PRINT TAB<10>"** 4 **" 

2518 PR INT : PR INT:PR INT 
2520 PRINT"DIE VIER IST DIE ZAHL DE 
R ERDE." 

2522 PRINT"SIE STEHT FUER FESTIGKEI 
T,GLEICHGE-" 


2524 PRINT"WICHT UND FLEISS." 

2526 PRINTrPRINT 

2528 PRINT TAB <15) "W-TASTE DRUECKE 
N" 

2530 GET GW* 

2532 IF GW*<> "W" GOTO 2530 
2534 CLS 

2536 PRINTrPRINT 

2538 PRINT"POSITIVE ASPEKTE:" 

2540 PRINT 

2542 PR INT"-TREU UND LOVAL -GENAU 
BIS INS DETAIL" 

2544 PRINT"-FLEISSIG -VERLAE 

SSL ICH" 

2546 PR INT"-REAL IST ISCH -PRAKTI 

SCH" 

2548 PRINT"-GLEICHMUETIG -GEDULD 

IG" 

2550 PRINT :PRINT :PRINT 

2552 PR INT"NEGAT IVE ASPEKTE:" 

2554 PRINT 

2556 PRINT"-SCHWERFAELL IG -FREUDL 
OS" 

2558 PR INT"-TAKTLOS -STUR" 

2560 PR INT"-NE IGUNG ZU SCHWERMUT UN 
I> TRUEBSINN" 

2562 PR INT"-WERTET DAS TUN HOEHER A 
LS DAS SEIN" 

2564 PRINT :PRINT:PRINT 
2566 PRINT TAB<10)"WEITERE BERECHNU 
NGEN < J/N)" 

2568 GET GW* 

2570 IF GW* = "J" GOTO 505 
2572 IF GW* = "N" GOTO 30000 
2574 GOTO 2568 

2900 REM AUSWERTUNG DER ZAHL 5 

2901 CLS 

2902 PRINT :PRINT:PRINT 

2904 PR INT"DIE NAMENSZAHL FUER" 

2906 PRINT .PRINT 
2908 PRINT TABC4) N* 

2910 PRINT - PRINT 
2912 PRINT"LAUTET : " 

2914 PR INT : PR INT : PR INT 
2916 PRINT TABC10)"** 5 **" 

2918 PRINT:PRINT:PRINT 
2920 PRINT "DIE ZAHL FUENF IST DIE Z 
AHL DER VER-" 

2922 PR INT"B INDUNG UND STEHT FUER F 
REIHEIT, ABEN-" 

2924 PR INT"TEUER, LEBENSLUST UND FR 
EUDE . " 

2926 PRINTrPRINT 

2928 PRINT TABC15) "W-TASTE DRUECKE 
N " 

2930 GET GW* 

2932 IF GW* O "W" GOTO 2930 
2934 CLS 

2936 PRINTrPRINT 

2938 PR INT"POSITI VE ASPEKTE:" 


2940 

PRINT 


2942 

PR INT"-ABENTEUERLUST IG 

TIV" 

-AK 

2944 

PRINT"- IMPULS IV 

T IM IST ISCH" 

-OP 

2946 

PR INT"-DYNAMISCH 

EATIV" 

-KR 

2948 

PR INT"-ENTHUSIASTISCH 
FGESCHLOSSEN" 

-AU 

2958 

PRINTrPRINT PRINT 


2952 

PR INT"NEGAT IVE ASPEKTE:" 


2954 

PRINT 


2956 

PRINT"-UNBESTAENDIG 

STLOS" 

-RA 

2958 

PR INT"-BE I STILLSTAND NERVOES, 
GEREIZT 

2960 

PR INT "-LATENTER JAEHZORN 

.. 

2962 

PRINTrPRINT rPRINT 


2964 

PRINTTAB<10)"WEITERE BERECHNUN 
GEN < J/N)" 

2966 

OE T GW* 


2968 

IF GW* = "J" GOTO 505 


2970 

IF GW* = "N" GOTO 30000 


2972 

GOTO 2966 


3300 

REM AUSWERTUNG DER ZAHL 6 


3301 

CLS 


3302 

PRINTrPRINT rPRINT 


3304 

PRINT"DIE NAMENSZAHL FUER" 


3306 

PRINT : PRINT 



-DV 

-GE 

-NA 


LEICH 

-BEEI 

-SARK 

-MATE 


3388 PRINT TAB < 4) N* 

3310 PRINTrPRINT 

3312 PRINT"LAUTET:" 

3314 PRINT :PRINT-PRINT 
3316 PRINT TABC10)"** 6 #*" 

3313 PRINTrPRINTrPRINT 

3320 PRINT"DIE SECHS IST DIE ZAHL D 
ER LIEBE." 

3322 PRINT"SIE STEHT FUER HAEUSLICH 
KE I T , HILFSBE-" 

3324 PR INT"RE I TSCHAFT UND TREUE." 
3326 PRINTrPRINT 

3328 PRINT TAB(15)"W-TASTE DRUECKEN 


3330 GET GW* 

3332 IF QW* <> "W" GOTO 3330 
3334 CLS 

3336 PRINTrPRINT 

3338 PR INT"PÖSITIVE ASPEKTE - " 

3340 PRINT 

3342 PRINT"-HILFSBEREITSCHAFT -HUM 
ANITAER" 

3344 PRINT"-SELBSTLOSIGKEIT -ZUV 

ERLAESSIG" 

3346 PR INT"-HAEUSL ICH -tre 

U" 

3348 PR INT"-HARMONISCH -EHR 

LICH" 

3350 PRINTrPRINTrPRINT 

3352 PR INT"NEGATIVE ASPEKTE:" 

3354 PRINT 

3356 PRINT"-SELBSTZUFRIEDENHEIT -PL 
A T THE IT" 

3358 PRINT"-DETA ILKRAEMERE I -BE 

VÖRMUNDUNG" 

3360 PRINT" -MANGELNDE MENSCHENKENNT 
NIS" 

3362 PR INT"-MANGELNDE EIGENLIEBE" 
3364 PRINTrPRINTrPRINT 
3366 PRINT TAB<18)"WEITERE BERECHNU 
NGEN < J/N)" 

3368 GET QW* 

3370 IF GW* = "J" GOTO 505 
3372 IF GW* ="N" GOTO 30808 
3374 GOTO 3368 

3780 REM AUSWERTUNG DER ZAHL 7 
3702 CLS 

3704 PRINTrPRINTrPRINT 

3706 PR INT"D IE NAMENSZAHL FUER" 

3708 PRINTrPRINT 
3710 PRINT TAB(4) N* 

3712 PRINTrPRINT 
3714 PRINT"LAUTET:" 

3716 PRINTrPRINT:PR IN T 
3718 PRINT TAB < 10) » ** 7 *#'• 

3720 PRINTrPRINTrPRINT 
3722 PR IN T " D IE SIEBEN IST EINE MYST 
ISCHE ZAHL" 

3724 PRINT"UND STEHT FUER DEN SIEG 
DES GEISTES" 

3726 PR INT"UEBER DIE MATERIE." 

3728 PRINTrPRINT 

3730 PRINTTABC15)"W-TASTE DRUECKEN" 
3732 GET GW* 

3734 IF GW* <> "W" GOTO 3732 
3736 CLS 


3738 PRINTrPRINT 

3748 PR INT"POSITIVE ASPEKTE:" 

3742 PRINT 

3744 PRINT"-PHILOSOPHISCH -in 

TU ITIV" 

3746 PR INT "-VORSTELLUNGSKRAFT -OR 
IG INELL" 

3748 PRINT"-LERNBEREIT -GE 

DULDIG" 

3758 PR INT"- DENKT TIEF U. GENAU -AU 
FGESCHLOSSEN" 

3752 PRINTrPRINTrPRINT 

3754 PR INT"NEGAT IVE ASPEKTE:" 

3756 PRINT 

3758 PR INT"-E IN2ELGAENGERISCH -DE 
PRESS IV" 

3760 PR INT"-RESERVIERT _ PE; 

RFEKTIONISTISCH" 

3762 PRINT"-VERL IERT SICH IN TRAEUM 
EREIEN" 

3764 PRINT"-OHNE ERFOLG GEFUEHLOS » 

3766 PRINT : PR IN TrPRINT 

3768 PRINT TAB(10)"WEITERE BERECHNU 
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NGEN < J/N >" 

3778 GET QW t 

3772 IF QWI = "J" GOTO 505 
3774 IF QW* = "N" GOTO 30080 
3776 GOTO 3770 

4100 REM AUSWERTUNG DER 2AHL S 
4102 CLS 

4184 PRINT:PRINT : PRINT 

4106 PRINT"DIE NAMENSZAHL FUER" 

4108 PRINT:PRINT 
4110 PRINTTABC4) N* 

4112 PRINT :PRINT 
4114 PRINT"LAUTET : " 

4116 PRINT:PRINT :PRINT 
4118 PRINTTABC10)"** 8 **" 

4128 PRINT:PRINT :PRINT 
4122 PRINT"DIE ACHT IST DIE ZAHL DE 
S KAMPFES," 

4124 PRINT"SIE STEHT FUER DAS VOLLE 
EINGEHEN AUF" 

4126 PR IN T"D IESE WELT UND IHRE BELA 
NGE . " 

4128 PRINT:PR INT 

4129 PRINT TABC10)"W-TASTE DRUECKEN 

4130 GET QW* 

4131 IF QW* <> "W" GOTO 4130 

4132 CLS 

4133 PRINTrPRINT 

4134 PRINT"POSITIVE ASPEKTE:" 

4135 PRINT 

4136 PRINT"-ENERGISCH -DVNA 

MISCH" 

4137 PRINT"-INDIVIDUALISTISCH -K0N2 
ENTRAT IONSKRAFT" 

4138 PR INT"-AKT IV UND LOYAL -ENGA 
GIERT" 

4148 PRINT"-ELAN UND FLEISS -LEIS 
TUNGSFAEH IG" 

4142 PRINT :PRINT :PRINT 

4144 PRINT "NEGATIVE ASPEKTE:" 

4146 PRINT 

4148 PRINT"-UEBERFORDERT ANDERE -FA 
NAT ISMUS" 

4158 PRINT"-VERBIRGT GEFUEHLE -AG 
GRESS IV" 

4152 PRINT"-MATERIALISTISCH -HA 

RTNAECKIG" 

4154 PRINT"-UNBARMHERZIG -TA 

KTLOS" 

4156 PRINT :PRINT :PRINT 
4158 PRINT TAB<18>"WEITERE BERECHNU 
NGEN < J/N)" 

4160 GET QW* 

4162 IF QW* - "J" GOTO 505 
4164 IF QW* = "N" GOTO 30000 
4166 GOTO 4160 

4500 REM AUSWERTUNG DER ZAHL 9 

4501 CLS 

4502 PRINT : PR IN T :PRINT 

4504 PRINT"DIE NAMENSZAHL FUER" 

4506 PRINT :PRINT 
4588 PRINT TAB<4> N* 

4510 PRINT: PRINT 
4512 PRINT"LAUTET : " 

4514 PR INT : PR INT : PR INT 
4516 PRINT TABC10)"** 9 **" 

4518 PRINT :PRINT-PRINT 
4520 PRINT"DIE NEUN IST DIE 2AHL DE 
R VOLLENDUNG" 

4522 PRINT" IN MENTALER UND SPIRITUE 
LLER HINSICHT." 

4524 PRINT"S IE STEHT FUER INTUITION 
UND EMOTION." 

4526 PRINT : PR I N T 

4528 PRINT TAB<15)"W-TASTE DRUECKEN 
4530 GET QW* 

4532 IF CtU* <> "W" GOTO 4530 
4534 CLS 

4536 PRINT :PRINT 

4538 PRINT"POSITIVE ASPEKTE:" 

4540 PRINT 

4542 PRINT"-IMPULSIVITAET -ERF IN 

DUNGSREICHTUM" 

4544 PR INT"- INTU I T IV -EMOTI 

ONAL" 

4546 PRINT"-HILFSBEREIT -EINFU 

EHLSAM" 


4548 PRINT"-PHANTASIEREICH -VERST 
AENDNISVOLL" 

4550 PRINT -PRINT :PRINT 

4552 PR IN T"NEGA T I VE ASPEKTE:" 

4554 PRINT 

4556 PRINT"-RESERVIERT -DISTA 

NZIERT" 

4558 PRINT"-LAUNENHAFT -AGGRE 

SSIV" 

4560 PRINT"-UEBERSCHAETZUNG DER EIG 
ENEN KRAEFTE" 

4562 PRINT"- TENDENZ ZU GRENZENLOSEM 
EGOISMUS" 

4564 PRINT :PRINT :PRINT 
4566 PRINT TAB<18>"WEITERE BERECHNU 
NGEN <J/N)" 

4568 GET QW* 

4578 IF QW* = "J" GOTO 505 
4572 IF QW* = "N" GOTO 30800 
4574 GOTO 4568 

10000 REM BERECHNUNG DER GEBURTSZAH 
L 

10005 REM------ 

18006 CLR 

18007 CLS 

18010 PRINT:PRINT:PRINT 
18015 PRINT"WAEHREND DIE NAMENSZAHL 
ANDEUTET, WAS" 

18020 PRINT"EINE PERSON AUS IHREM L 
EBEN MACHTE," 

10025 PR INT"VERRAET DIE GEBURTSZAHL 
DEREN ANLAGEN" 

18030 PR INT"UND MOEGLICHKEITEN." 
18835 PRINT 

10040 PRINT"BITTE GEBEN SIE DAS VOL 
LSTAEND IGE" 

10045 PRINT"GEBURTSDATUM EIN." 

10050 PRINT TABC20)"TT.MM.JJJJ)" 
10055 CURSOR 14, 16 
10060 INPUT GB* 

10865 REM FEHLERUEBERPRUEFUNG 
10870 IF LEN <GB $) O 18 THEN 18280 
10075 IF M ID* <GB *,3,1> <> "." THEN 1 
0280 

10088 IF M I D * < GB *,6,1) O "." THEN 
10200 

10085 LET T T* = LEF T$(GB $, 2) 

10090 LET TT = VAL(T T $) 

10095 IF <TT<1>+<TT>31) THEN 10200 
10100 LET MM*=MID*(GB*,4,2) 

10195 LET MM = VALCMM*) 

10118 IF CMMCl)+<MM>12> THEN 18208 
18115 LET JJ* = RIGHT*<GB*,4> 

10120 LET JJ = VAL(J J * > 

10125 GOTO 10380 
18200 CURSOR 14,19 

10285 PRINT"FALSCHE EINGABE !!!!!" 
10210 FOR I = 1 TO 500 : NEXT I 
18225 PRINTTABC13)" 

18230 GOTO 10060 
10308 REM BERECHNUNG 
18305 LET GB = TT+MM+JJ 
18310 LET G * = S TR * < GB) 

10311 LET L = LEN(G *) 

10315 FOR I = 1 TO L 
10320 LET A* = MID*(G*,I,1) 

18325 LET B = B + VALCA*) 

10338 NEXT I 

10335 LET B* = S TR $ CB) 

10336 LET L = LEN < B * > 

10348 FOR I = 1 TO L 
10345 LET C* = M ID*CB*, I,1) 

10350 LET D = D+VALCC*) 

10355 NEXT I 

10360 REM AUSGABE UND DEUTUNG DER G 
EBURTSZAHL 

18365 ON D GOTO 11000,12008,13000,1 
4000,15000,16000,17000,18000, 
19000 
11080 CLS 

11005 PRINT :PRINT :PRINT 
11010 PR IN T"D I E GEBURTSZAHL FUER DA 
S DATUM" 

11015 PRINT:PRINT 
11020 PRINT TAB <10) GB $ 

11025 PRINT 

11030 PRINT"LAUTET : " 

11035 PRINT:PRINT 


11040 

11045 

11050 

11055 

11060 

11965 

11070 

11075 

11080 

11085 

11090 

11095 

11100 

11185 

11110 

11115 

11120 

11121 

11125 

11130 

11135 

11140 

11145 

11158 

11155 

11160 

11165 

11178 

12000 

12005 

12018 

12015 

12020 

12025 

12030 

12835 

12040 

12045 

12858 

12855 

12060 

12065 

12070 

12975 

12880 

12085 

12090 

12095 

12100 

12185 

12110 

12115 

12120 

12125 

12130 

12135 

12140 

12145 

12150 

12155 


- WILLEN 


- SCHOEP 


- KRITIS 


- POS I TI 


SENS IB 


PRINT TABC18)1 *#**" 
PRINT :PRINT:PRINT 
PR INT"DIE EINS IST DIE ZAHL D 
ER SONNE." 

PR IN T" I HR WESEN IST ABSICHT, 
HANDLUNG," 

PRINT "FUEHRUNG, LENKUNG UND E 
HRGEIZ." 

PRINT :PRINT 

PRINT TABC10)"W-TASTE DRUECKE 
N" 

GET W* 

IF W* O "W" GOTO 11075 
CLS 

PRINT :PRINT 

PRINT"DIE EINS IST - ENTSCH 
IEDEN" 

PRINT" - ENTSCH 

LOSSEN" 

PRINT" 

SSTARK" 

PRINT" 

FERISCH" 

PRINT" 

CH" 

PRINT" 

V" 

PRINT" 

EL" 

PRINT :PRINT:PRINT 

PR IN T"TIP: VERSUCHEN SIE, AND 

ERE NICHT ZU" 

PRINT" BEHERRSCHEN." 

PRINT" LERNEN SIE, GEFUEH 

L ZU ZEIGEN." 

PRINT -PRINT:PRINT:PRINT 
PRINT TAB <10)"WEITERE BERECH 
NUNGEN < J/N)" 

GET W* 

IF W* = "J" GOTO 505 
IF W* = "N" GOTO 38000 
GOTO 11155 
CLS 

PRINT:PRINT 

PRINT "DIE GEBURTSZAHL FUER DA 
S DATUM" 

PRINT:PRINT 
PRINT TAB <10) GBl 
PRINT 

PR INT"LAUTET : " 

PRINT : PRINT 

PRINT TABC18)"*#** 2 ****" 
PRINT :PRINT:PRINT 
PR INT"D IE ZWEI IST DIE ZAHL D 
ES MONDES." 

PRINT"IHR WESEN IST GLEICHGEW 
ICHT," 

PRINT"EMPFAENGLICHKEIT UND PA 
SSIVITAET." 

PRINT : PRINT:PRINT:PRINT 
PRINT TAB(15)"W-TASTE DRUECKE 
N" 

GET W* 

IF W* O "W" GOTO 12075 
CLS 

PRINT:PR INT 

PR INT"DIE ZWEI IST - DIPLOM 

ATISCH" 

PRINT" - TAKTVO 

LL" 

PRINT" - MITFUE 

HLEND" 

PRINT" - KOOPER 

AT IV" 

PRINT" - GEFUEH 

LSBE TON T " 

PRINT" - FR I EDV 

OLL" 

PRINT" - HILFSB 

ERE IT" 

PRINT : PR INT : PR INT 

PRINT"TIP : VERMEIDEN SIE NOTL 

UEGEN." 

PRINT" WEICHEN SIE SCHWIE 

RIGKEITEN " 

PRINT" NICHT IMMER AUS." 

PRINT -PRINT:PR IN T:PRINT 
PRINT TABC10)"WEITERE BERECHN 
UNGEN < J/N)" 
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12160 

GET Hi 


12165 

IF Hi - "J" GOTO 505 

14120 

12170 

IF W i = "N" GOTO 30000 


12175 

GOTO 12160 

14125 

13000 

CLS 


13005 

PRINT rPRINT rPRINT 

14130 

13010 

PR INT"D IE GEBURTS2AHL FUER DA 

S DATUM" 

14135 

13015 

PRINTrPRINT 

14140 

13020 

PRINT TAB( 10) GB i 


13025 

PRINT 

14145 

13830 

PRINT"LAU TE T:" 


13835 

PRINT rPRINT 

14150 

13048 

PRINT TAB(10)"#### 3 #**#" 


13045 

PRINT rPRINT rPRINT 

14155 

13050 

PRINT"DIE DREI IST DIE ZAHL J 
UPITERS." 

14160 

13055 

PR INT"IHR WESEN IST FRÖEHL ICH 

14165 


KE IT, GLANZ," 

14178 

13060 

PRINT"VIELSEITIGKEIT UND FREU 

14175 


DE. " 

14180 

13065 

PRINT rPRINT-PRINT rPRINT 

15000 

13078 

PRINT TAB(15)"W-TASTE DRUECKE 

15005 


N" 

15010 

13075 

GET Hi 


13080 

IF W i <> "W" GOTO 13075 

15015 

13085 

CLS 

15020 

13098 

PRINT rPRINT 

15025 

13095 

PRINT"DIE DREI IST - KLAR UN 

15030 


D EHRLICH" 

15035 

13100 

PRINT" - VIELSEI 

15040 


TIG" 

15045 

13105 

PR 1 NT" - LERNFAE 

H IG" 

15050 

13110 

PRINT" - GESELLI 

G " 

15055 

13115 

PRINT" - UNTERHA 

LTSAM" 

15860 

13128 

pri NT" - GENUSSF 

15865 


AEHIG" 

15070 

13125 

PRINT" - POSITIV 



16070 

PRINT TAB(15)"W-TASTE DRUECKE 
N" 

16075 

GE TW * 


16080 

I FW $ O "W" GOTO 

16075 

16085 

CLS 


16098 

PRINT rPRINT rPRINT 


16095 

PRINT"DIE SECHS IST - POSITI 
V" 

16100 

PRINT" 

ST ISCH" 

- IDEAL I 

16105 

PRINT" 

ISCH" 

- HARMON 

16110 

PRINT" 

V MOTIVIEREND" 

- POSITI 

16115 

PRINT" 

EREIT" 

- HILFSB 

16120 

PRINT" 

LOS" 

- SELBST 

16125 

PRINT" 

WORTUNGSBEREIT" 

- VERANT 

16130 

PRINT rPRINT rPRINT 


16135 

PRINT"TIP: HUETEN 

SIE SICH VO 


13130 PRINTrPRINTrPRINT 
13135 PRINT"TIP: IHRE V IELFAEL11GEN 
TALENTE FUEH-" 

13140 PRINT" REN ZUR VERZETTELU 

NÖ. " 

13145 PRINT" MACHEN SIE OEFTERS 

INVENTUR." 

13150 PRINTrPRINTrPRINTrPRINT 
13155 PRINT TAB(10)"WEITERE BERECHN 
UNöEN < J/N)" 

13160 6ET W$ 

13165 IF W$ = "J" GOTO 505 
13170 IF W$ = "N" GOTO 30008 
13175 GOTO 13160 
14000 CLS 

14005 PRINT .PRINT:PRINT:PRINT 
14010 PRINT"DIE GEBURTSZAHL FUER DA 
S DATUM" 

14015 PRINT : PR INT 
14020 PRINT TAB(10) GBl 
14025 PRINT 
14030 PR INT"LAUTET : " 

14035 PRINTrPRINT 
14040 PRINT TAB<10>"**** 4 #***" 
14045 PRINT:PRINT :PRINT 
14050 PRINT"DIE VIER IST DIE ZAHL S 
ATURNS." 

14055 PRINT"IHR WESEN IST GEDULD, F 
ESTIGKEIT," 

14060 PRINT"ZAEHIGKEIT UND AUSDAUER 

il 

14065 PRINTrPRINTrPRINTrPRINT 
14070 PRINT TAB(15)"W-TASTE DRUECKE 
N" 

14875 GET W* 

14880 IF Hi O "W" GOTO 14075 

14085 CLS 

14890 PRINTrPRINT 

14895 PR INT"DIE VIER IST - METHODI 
SCH" 

14100 PRINT" - VERLAES 

SL ICH" 

14105 PRINT" - GEWISSE 

NHAFT" 

14118 PRINT" - VERANTW 

ORTUNGSBEWUSST" 

14115 PRINT" - GERECHT 


15075 

15080 

15085 

15890 


PRINT" - ZIELSIC 

HER" 

PRINT" - REALIST 

ISCH" 

PRINTrPRINT:PR IN T 

PR INT"T IP: SEHEN SIE ES ANDER 

EN NACH, WENN" 

PRINT" SIE ETWAS WENIGER 

TUECHTIG SIND." 

PRINT" BEWERTEN SIE DAS T 

UN NICHT IMMER" 

PRINT" HOEHER ALS DAS SEI 

N. " 

PR INT:PR INT:PR INT 

PRINT TAB(10)"WEITERE BERECHN 

UNGEN < J/N)" 

GET W$ 

IF Wf = "J" GOTO 505 
IF w$ = "N" GOTO 30000 
GOTO 14165 
CLS 

PRINT:PR INT:PRINT 

PRINT"DIE GEBURTSZAHL FUER DA 

S DATUM" 

PRINT:PRINT 
PRINT TAB <10) GB$ 

PRINT 

PR IN T"LAU TE T : " 

PRINTrPRINT 

PRINT TABC10)"***# 5 ***#" 
PRINTrPRINT rPRINT 
PRINT"DIE FUENF IST DIE ZAHL 
MERKURS. " 

PRINT" IHR WESEN IST ABENTEUER 
, ENERGIE," 

PRINT" GE IST, WITZ UND SCHNELL 
IGKEIT." 

PRINT rPRINT rPRINT-PRINT 
PRINT TABC15)"W-TASTE DRUECKE 
N " 

GET W* 

IF Hi <> "W" GOTO 15075 
CLS 

PRINT : PRINT 


15895 

PR INT"D IE FUENF IST 

I TSL IEBEND" 

- FREIHE 

17050 

15100 

PRINT" 

- AKTIV" 

17055 

15105 

PRINT" 

OLL" 

- HUMORV 

17060 

15110 

PRINT" 

IGENT" 

- INTELL 

17065 

17070 

15115 

PRINT" 

WANDT" 

- WORTGE 

17075 

15128 

PRINT" 

T LEBEND" 

- BEWUSS 

17080 

17035 

15125 

15130 

PRINT" 

I AS TI SCH" 

PRINT rPRINT rPRINT 

- ENTHUS 

17090 

17095 

15135 

PR IN T"T IP : VERMEIDEN 
LOS IGKE I T DURCH" 

SIE RAST 

17180 

15140 

PRINT" LERNEN VON 

NEUEM." 

17105 

15145 

PRINT" AKZEPTIEREN SIE NE 

UE STANDPUNKTE." 

17110 

15150 

PRINTrPRINT -PRINT-PRINT 


15155 

PRINT TAB(10)"WEITERE 
UNGEN (J/N)" 

BERECHN 

17115 

15168 

15165 

GET W$ 

IF Wi = "J" GOTO 505 


17120 

15170 

15175 

IF W* = "N" GOTO 30800 

GOTO 15160 

17125 

16000 

CLS 


17130 

16805 

PRINT rPRINT rPRINT 


17135 

16010 

16015 

PR IN T"D IE GEBUR TS2AHL 
S DATUM" 

PRINTrPRINT 

FUER DA 

17148 

16020 

16025 

PRINT T AB(10) GB t 
PRINT 


17145 

16030 

PRINT"LAUTET:" 


17158 

16035 

PRINT rPRINT 


17155 

16040 

PRINT TAB (10 ) " ** * * 6 **#*" 


16045 PRINTrPRINTrPRINT 
16058 PRINT"DIE SECHS IST DIE ZAHL 
DER VENUS. " 

16055 PRINT" IHR WESEN IST ZUVERLAES 
SIGKEIT," 

16060 PR INT"HARMON IE UND HAEUSLICHK 
EIT." 

16065 PRINTrPRINTrPRINTrPRINT 


R SCHMAROTZERN." 

16140 PRINT" LERNEN SIE, 'NEIN' 

ZU SAGEN UND" 

16145 PRINT" VERMEIDEN SIE BEVO 

RMUNDUNGEN." 

16150 PR INT : PR INT : PR INT:PR INT 
16155 PRINT TABC10)"WEITERE BERECHN 
UNGEN (J/N)" 

16160 GET W* 

16165 IF W* = "J" GOTO 585 
16170 IF Hi = "N" GOTO 30000 
16175 GOTO 16160 
17008 CLS 

17005 PRINTrPRINTrPRINT 
17010 PR INT"D IE GEBURTSZAHL FUER DA 
S DATUM" 

17015 PRINTrPRINT 
17020 PRINT TAB(10) GB$ 

17025 PRINT 

17030 PRINT"LAUTET:" 

17035 PRINTrPRINT 
17040 PRINT TAB(10) 1 
17045 


17160 

17165 

17170 

17175 

18000 

13005 

18018 


**#* 7 *###" 
PRINT rPRINT rPRINT rPRINT 
PRINT"DIE SIEBEN IST DIE ZAHL 
URANUS' ." 

PRINT" IHR WESEN IST GEHEIMNIS 
, WISSEN," 

PRINT"EINSAMKEIT UND MYSTIK." 
PRINT rPRINT rPRINT rPRINT 
PRINT TAB(15)"W-TASTE DRUECKE 
N" 

GET Wf 

IF Hi O "W" GOTO 17075 
CLS 

PRINT rPRINT rPRINT 

PRINT"DIE SIEBEN IST - PHILO 

SOPHISCH" 

PRINT" - ANALY 

TISCH" 

PRINT" - MEDIT 

A T IV " 

PRINT" - INTRÖ 

VERTIERT" 

PRINT" - KREAT 

IV" 

PRINT" - JRAEU 

MER ISCH" 

PRINT" - DEFEN 

SIV" 

PRINTrPRINT rPRINT 

PRINT "TIP: GEHEN SIE KLAEREND 

EN AUSEINANDER-" 

PRINT" SETZUNGEN NICHT AU 

S DEM WEG." 

PRINT" FLUECHTEN SIE NICH 

T IN TRAEUME." 

PRINT rPRINTrPRINTrPRINT 
PRINT TAB(10)"WEITERE BERECHN 
UNGEN (J/N)" 

GET Hi 

IF W* = "J" GOTO 505 
IF W* = "N" GOTO 30800 
GOTO 17160 
CLS 

PRINT rPRINT rPRINT 

PRINT"DIE GEBURTSZAHL FUER DA 

S DATUM" 
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Numerologie 


18015 PRINT:PR INT 
18028 PRINT TAB <10) GBt 
18025 PRINT 
18030 PR INT"LAUTET:" 

18035 PRINT:PRINT 
18040 PRINT TAB< 10 )"###* 8 
18045 PR INT : PR INT:PR INT 
18050 PRINT"DIE ACHT IST DIE ZAHL D 
ES MARS." 

18855 PRINT"IHR WESEN IST DAS SICH¬ 
EINLASSEN AUF" 

18060 PR INT"D IE WELT UND DER MA TER I 
ELLE ERFOLG." 

18065 PRINT :PRINT:PRINT:PRINT 
18070 PRINT TAB<15)"W-TASTE DRUECKE 
N" 

18075 GET M$ 

18088 IF W$ O "W" GOTO 18075 
18085 CLS 

18090 PRINT-PRINT-PRINT 
18095 PR INT"D IE ACHT IST 
NDNISVOLL" 


VERSTAE 
AU TOR I T 
NATUERL 
UNERMUE 


MUTIG" 

FREIHEI 

TUECHTI 


18100 PRINT" 

AET" 

18105 PRINT" 

ICH FREUNDLICH 
18110 PRINT" 

DL ICH" 

18115 PRINT" 

18120 PRINT" 

TSLIEBEND" 

18125 PRINT" 

<3 UND FAEHIG" 

18130 PR INT:PR INT : PR INT 
18135 PRINT"TIP: VERMEIDEN SIE DIKT 
ATORISCHES" 

18140 PRINT" GEHABE. HAUSHALTEN 

SIE BESSER" 

18145 PRINT" MIT IHRER KRAFT." 

18150 PRINT:PRINT:PRINT:PRINT 
18155 PRINT TAB< 10 )"WEITERE BERECHN 
UNGEN < J/N >" 

18168 GE TW $ 

18165 IF W t = "J" GOTO 505 
18178 IF Wt = "N" GOTO 30000 
18175 GOTO 18160 
19000 CLS 

19005 PRINT-PRINT :PRINT 
19010 PRINT"DIE GEBURTSZAHL FUER DA 
S DATUM" 


PR INT : PR INT 
PRINT TAB < 10 ) GB $ 
PRINT 

PRINT"LAUTET: " 
PRINT:PRINT 
PRINT T AB(10)' 


19015 
19020 
19025 
19030 
19035 

19840 PRINT TAB ( 10 ) " ***# 9 ###*“ 
19045 PR INT : PR INT : PR INT 
19050 PR IN T"NEUN IST DIE 2AHL DES N 
EPTUN." 

19055 PRINT"IHR WESEN IST GROSSE LE 
ISTUNG , » 

19060 PRINT"GE ISTIGE NATUR UND EING 
EBUNG." 

19065 PRINT-PRINT:PRINT-PRINT 
19070 PRINT TAB(15)"W-TASTE DRUECKE 
N " 

19075 GET Wt 

19030 IF Wt <> "W" GOTO 19075 
19085 CLS 

19090 PRINT:PRINT:PRINT 


19095 

PRINT"DIE NEUN 
TISCH" 

IST - 

IDEAL IS 

19100 

PRINT" 

TSUCHEND" 

- 

WEISHEI 

19105 

PRINT" 

IERIG" 

- 

WIS-SBEG 

19110 

PRINT" 

NACHTEND" 

- 

MENSCHE 

19115 

PRINT" 

IV" 

- 

MED I TAT 

19120 

PRINT" 

HL IG " 

- 

FEINFUE 

19125 

PRINT" 

- 

LIBERAL 

19130 

PRINT :PRINT --PRINT 


19135 

PRINT"TIP : BEHERRSCHEN 
GATIVE STIMMUN-" 

SIE NE 

19140 

PRINT" GEN. 

E MEHR MIT IH-" 

HAUSHALTEN SI 


19145 PRINT" RER KRAFT." 

19158 PRINT:PRINT :PRINT :PRINT 
19155 PRINT T AB < 10 ) "WEITERE BERECH 
NUNGEN CJ/N>" 

19160 GET W t 

19165 IF W t = "J" GOTO 505 
19170 IF Wt = "N" GOTO 30000 
19175 GOTO 19160 

20000 REM BERECHNUNG DER TAGES2AHL 

20001 CLR 
20005 CLS 

20010 PRINT:PRINT 

20015 PRINT"IN VERBINDUNG MIT NAMEN 
S- UND GEBURTS-" 

20820 PR IN T"ZAHL HAT JEDER EINZELNE 
TAG EINE BE-" 

20025 PRINT"SONDERE GUALITAET." 
20030 PRINT 

20035 PRINT"WISSEN SIE EINMAL NICHT 
, WIE SIE EINEN" 

2004© PR INT"TAG GESTALTEN SOLLEN OD 
ER OB GROSSE" 

20845 PR INT"VORHABEN ZEITLICH RICHT 
I<3 LIEGEN, SO" 

20050 PR INT"LASSEN SIE SICH DOCH EI 
NFACH VON DER" 

20055 PRINT"JEWEILIGEN TAGESQUAL I TA 
ET BEEINFLUSSEN." 

20060 PRINT 

20065 PRINT"DIE TAGESZAHL ERRECHNET 
SICH AUS" 

20870 PR INT"FOLGENDEN EINGABEN:" 
20075 PRINT:PR IN T 

20080 PR INT"NAMENSZAHL: Nt 

20081 CURSOR 23,16 
20085 INPUT Nt 

20090 PRINT"GEBURTS2AHL: "• 6B 

t 

CURSOR 23,17 
INPUT GBt 

PR INT"DEM AKTUELLEN DATUM:": 

Tt 

PRINT"(TT.MM.JJJJ)" 

CURSOR 23,18 
INPUT Tt 

REM FEHLERUEBERPRUEFUNG 
IF LEN (Tt) <> 10THEN 20300 
IF MIDt(Tt,3,l) O "." THEN 2 
0300 

IF MIDt(Tt, 6 ,l) O THEN 2 

0300 

LET TTt = LEFTt(Tt,£) 

LET TT =VAL (TTt) 

IF (TT < 1)+ (T T>31) THEN 2030 


20091 

20095 

20100 

20101 

20102 

20105 

20110 

20115 

20120 

20125 

20130 

20135 

20140 


20145 LET MMt = MIDt(Tt,4,2) 

20150 LET MM= VAL(MMt) 

20155 IF (MMC1) + (MM>12) THEN 20300 
20160 LET JJt=RIGHTt(Tt,4) 

20165 LET JJ = VAL( J J t) 

20170 LET N =VAL(Nt) 

20175 LET GB=VAL(GBt) 

20180 GOTO 20400 

20300 CURSOR 23,20 

20305 PR INT"FALSCHE EINGABE!!" 

20310 FOR 1= 1 TO 500 : NEXT I 

29315 CURSOR 23,22 
20320 PRINT" 

20325 GOTO 20105 

28400 REM BERECHNUNG UND WERTUNG DE 
R TAGESZAHL 

20405 LET TZ = TT +MM +JJ + N + GB 
20410 LET TZ t = S TR t(T2) 

20415 LET L = LEN(T21) 

20420 FOR 1= 1 TO L 

20425 LET Dt = M IDt ( TZt, I ,1> 

20430 LET Q = Q + VAL(D t > 

20435 NEXT I 

20448 LET Qt-STRt(Q) 

20445 LET L = LEN(Qt) 

20450 FOR 1=1 TO L 

20455 LET Xt = MIDt(Gt,I,l) 

20460 LET T = T + VAL(Xt) 

20465 NEXT I 

20470 ON T GOTO 21000,22000,23000,2 
4000,25000,26080,27000,28000 

29000 
21000 CLS 
21005 PRINT ; PRINT 


21810 PR INT"AUS DER NAMENSZAHL *";N 
t;"* UND DER GEBURTS-" 

21015 PRINT"ZAHL #";GBt;"# SOWIE DE 
M DATUM *" ;Tt; 

21020 PRINT"ERG IB T SICH DIE TAGESQU 
ALITAET" 

21025 PRINT 

21038 PRINT TAB( 10 )"#### l ***#'■ 
21035 PRINTrPRINT 

21840 PR INT "EINER-TAGE EIGNEN SICH 
BESONDERS FUER:" 

21045 PRINT 

21050 PRINT"- NEUANFAENGE JEDER ART 

ii 

21055 PRINT"- DIREKTES HANDELN" 
21060 PRINT"- BASTELN UND BAUEN" 
21065 PRINT"- ANGEHEN VON PROBLEMEN 


21078 

21075 

21080 

21085 

21090 

21095 

21100 

21105 

21110 

21115 

21120 

22000 

22005 

22010 

22015 

22020 

22025 

22030 

22035 

22040 

22045 

22050 

22055 

22060 

22065 


PRINT"- VERHANDLUNGEN" 

PRINT"- SPA2 IERGAENGE/WANDERU 
NGEN" 

PRINT"- VERKAUFEN VON IDEEN/P 
RODUKTEN" 

PRINT"- NEUE BEKANNTSCHAFTEN" 
PRINT"- ORGANISATORISCHE AUFG 
ABEN" 

PRINT : PR INT:PR INT 

PRINT TAB(10)"WEITERE BERECHN 

UNGEN (J/N)" 

GET Wt 

I FW t ="J" GOTO 505 
IF Wt = "N" GOTO 30000 
GOTO 21105 
CLS 

PRINT:PRINT 

PRINT "AUS DER NAMENSZAHL *";N 
t; " * UND DER GEBURTS-" 

PR INT"ZAHL #";GBt;"* SOWIE DE 
M DATUM #" ; Tt;"#" 

PR INT"ERGIBT SICH DIE TAGESQU 
ALITAET" 

PRINT 

PRINT TAB<10)"$##$ 2 
PRINT : PR INT 

PR INT"ZWEIER-TAGE EIGNEN SICH 
BESONDERS FUER:" 

PRINT 

PLANUNGEN" 

- KOOPERATIVE HANDLUNGE 


DAS ABWAEGEN VON PROB 


22070 

22075 

22080 

22085 

22090 

22095 

22100 

22105 

22110 

22115 

22120 

23000 

23005 

23010 

23015 

23020 

23025 

23030 

23035 

23040 

23045 

23050 

23055 

23060 

23065 


PRINT 
PRINT 
N" 

PRINT 
LEMEN 

PRINT"- DAS VERMEIDEN VON VER 
PFL I CH TUNGEN" 

PRINT"- DIENSTE ERB I TTEN/ERWE 
ISEN" 

PRINT"- DIPLOMATIE" 

DEM FOLGEN VON EINGEB 


PRINT" 

UNGEN" 

PRINT"- SCHLICHTEN/VERMEIDEN 
VON STREIT" 

PRINT"- ECHTES ZUHOEREN" 

PRINT-PRINT:PR INT 

PRINT TAB(18)"WEITERE BERECHN 

UNGEN (J/N)" 

GET Wt 

IF Wt = "J" GOTO 505 
IF Wt = "N" GOTO 30008 
GOTO 22105 
CLS 

PR INT:PR INT 

PRINT"AUS DER NAMENSZAHL #";N 
t;"# UND DER GEBURTS-" 

PRINT "ZAHL#"; GB t;"# SOWIE DEM 
DATUM #";Tt;"*" 

PRINT"ERGIBT SICH DIE TAGESOU 
ALITAET" 

PRINT 

PRINT TAB ( 10 ) " #### 3 ****•> 
PRINT:PRINT 

PR INT "DREIER-TAGE EIGNEN SICH 
BESONDERS FUER:" 

PRINT 

PRINT"- DAS ERLEBEN VON SPASS 
UND FREUDE" 

PRINT"- SELBSTVERWIRKLICHUNG" 
PRINT"- GRUPPENARBEIT" 

PRINT"- DAS PLANEN VON GESCHE 
NKEN" 
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23078 PRINT"- ERHOLUNG UND SPIEL" 
23075 PRINT"- FESTIGUNG VON FREUNDS 
CHAFTEN" 

23080 PRINT"- POSITIVES DENKEN UND 
HANDELN" 

23885 PRINT"- MUSISCHE TAETIGKEITEN 

23890 PRINT"- GENUSS VON SCHOENEM" 
23095 PRINT :PRINT :PRINT 
23100 PRINT TAB(10)"WEITERE BERECHN 
UNGEN (J/N)" 

23105 GE TW $ 

23110 I FW $ = "J" GOTO 505 

23115 IF Wi = "N" GOTO 30000 

23120 GOTO 23105 

24000 CLS 

24005 PRINT : PR INT 

24010 PRINT"AUS DER NAMENSZAHL *";N 
*;"* UND DER GEBURTS-" 

24015 PRINT"ZAHL #"jGB$;"# SOWIE DE 
M DATUM #";T$;"#" 

24020 PRINT"ERGIBT SICH DIE TAGESOU 
AL I TAET" 

24825 PRINT 

24030 PRINT TAB<10)"#### 4 ####" 
24035 PRINT :PRINT 

24040 PRINT"VIERER-TAGE EIGNEN SICH 
BESONDERS FUER : " 

24045 PRINT 

24050 PRINT"- DAS PLANEN DER ZUKUNF 
T" 

24055 PRINT"- ERLEDIGEN LAESTIGER R 
OUTINE" 

24060 PRINT"- REPARATUREN" 

24065 PRINT"- DETAILLIERTES PLANEN" 
24870 PRINT"- LANGFRISTIGE VERPFLIC 
H TUNGEN" 

24875 PRINT"- EINGEHEN NEUER PARTNE 
RSCHAF TEN" 

24080 PRINT"- ORGANISATIONSAUFGABEN 

24085 PRINT"- INTELLEKTUELLE AUFGAB 
EN" 

24090 PRINT"- PRAKTISCHE ARBEITEN" 
24095 PRINT:PRINT:PRINT 
24100 PRINT TAB(10)"WEITERE BERECHN 
UNGEN (J/N" 

24105 GET W % 

24118 IF W t = "J" GOTO 505 

24115 IF W* = "N" GOTO 30000 

24120 GOTO 24105 

25000 CLS 

25005 PRINT :PRINT 

25010 PR INT"AUS DER NAMENSZAHL #";N 
* ; " * UND DER GEBURTS-" 

25015 PRINT "ZAHL *";GB$;"* SOWIE DE 
M DATUM *";T*;"*" 

25020 PRINT"ERGIBT SICH DIE TAGESOU 
ALITAET" 

25025 PRINT 

25030 PRINT TAB(10>"#### 5 ## # # " 
25035 PRINT:PR INT 

25040 PRINT"FUENFER-TAGE EIGNEN SIC 
H BESONDERS FUER" 

25045 PRINT 

25050 PRINT"- UM/NEUORDNUNGEN" 

25055 PRINT"- ALLES, WAS MIT SCHREI 
BEN ZU TUN HAT" 

25060 PRINT"- AKTIVITAETEN JEDER AR 
T" 

25065 PRINT"- DAS VERMEIDEN LANGFRI 
STIGER PLAENE" 

25070 PRINT"- KURZE REISEN" 

25075 PRINT"- VERANSTALTUNGSBESUCHE 

25080 PRINT"- DAS EINGEHEN VON RISI 
KEN" 

25085 PRINT"- DAS ERWARTEN DES UNER 
WARTETEN" 

25090 PRINT"- NEUE BEKANNTSCHAFTEN" 
25095 PRINT :PRINT :PRINT 
25100 PRINT TAB (10)"WE I TERE BERECHN 
UNGEN (J/N)" 

25185 GET W$ 

25110 IF Wt = "J" GOTO 505 
25115 I FW $ = "N" GOTO 30000 
25120 GOTO 25105 
26000 CLS 


26005 PRINT : PR INT 

26010 PRINT"AUS DER NAMENSZAHL *";N 
*;"* UND DER GEBURTS-" 

26015 PR INT"ZAHL #";GB$;"# SOWIE DE 
M DATUM #";T 

26020 PRINT"ERG IB T SICH DIE TAGESOU 
ALITAET" 

26025 PRINT 

26030 PRINT TAB( 10 )"#### 6 *###" 
26035 PRINT :PRINT 

26040 PRINT"SECHSER-TAGE EIGNEN SIC 
H BESONDERS FUER" 

26045 PRINT 

26050 PRINT"- HAUSHALTSARBEITEN" 
26055 PRINT"- DAS LOESEN VON KONFLI 
K TEN " 

26060 PRINT"- GESELLIGES BE ISAMMENS 
EIN" 

26065 PRINT"- BLUMENPFLEGE" 

26070 PRINT"- BESUCHE KULTURELLER V 
ERANSTALTUNGEN" 

26075 PRINT"- DAS ERFREUEN ANDERER" 
26880 PRINT"- DAS PLANEN VON FESTEN 
/FEIERTAGEN" 

26085 PRINT"- DIE UEBERNAHME VON VE 
RANTWORTUNGEN" 

26090 PRINT"- MUSISCHE BESCHAEF TIGU 
NGEN " 

26895 PRINT :PRINT:PRINT 
26100 PRINT TAB ( 10 )"WEITERE BERECHN 
UNGEN (J/N)" 

26105 GET W$ 

26110 IF W$ = "J" GOTO 505 

26115 IF Wf = "N" GOTO 30000 

26120 GOTO 26105 

27000 CLS 

27005 PRINT : PR IN T 

27010 PRINT"AUS DER NAMENSZAHL *";N 
*;"* UND DER GEBURTS-" 

27815 PRINT"ZAHL #";GB$;"# SOWIE DE 
M DATUM *" ;T*;"#" 

27020 PRINT"ERGIBT SICH DIE TAGESQU 
AL I TAET" 

27025 PRINT 

27030 PRINT TAB(10)"#### 7 ####" 

27031 PRINT:PR INT 

27035 PRINT"SIEBENER-TAGE EIGNEN SI 
CH BESONDERS FUER" 

27045 PRINT"- MEDITATION UND GEBET" 
27050 PRINT"- DAS STUDIEREN PSVCHIS 
CHER PHAENOMENE" 

27055 PRINT"- PHILOSOPHISCHE PROJEK 
TE" 

27060 PRINT"- WEITREICHENDE ENTSCHE 
IDUNGEN" 

27065 PRINT"- STUDIUM/FORSCHUNG" 
27070 PRINT"- DAS UEBERDENKEN VON D 
INGEN" 

27075 PRJ N T"- WICHTIGE BERATUNGEN M 
IT ANDEREN" 

27030 PRINT"- DAS FOLGEN DER EIGENE 
N INTUITION" 

27035 PRINT"- RUHE, ALLEINSEIN UND 
ERHOLUNG" 

27090 PRINT : P R IN T :PRINT 
27095 PRINT TAB<10)"WE I TERE BERECHN 
UNGEN (J/N)" 

27100 GET W* 

27105 IF Wf = "J" GOTO 505 

27110 IF W$ = "N" GOTO 30000 

27115 GOTO 27100 

23000 CLS 

28805 PRINT:PR INT 

28010 PRINT"AUS DER NAMENSZAHL *";N 
*;"# UND DER GEBURTS-" 

28015 PRINT"ZAHL #";GB*;"# SOWIE DE 
M DATUM *";T*;"*" 

23020 PRINT"ERG IB T SICH DIE TAGESOU 
ALITAET" 

28025 PRINT 

28030 PR INT TAB(10)"#### 8 ####" 

28035 PRINT : PR INT 

28040 PRINT"ACHTER-TAGE EIGNEN SICH 
BESONDERS FUER" 

28045 PRINT 

28050 PRINT"- KONSTRUKTIVES HANDELN 
23055 PRINT"- DAS REGELN VON GELDAN 


GELEGENHEITEN" 

28060 PRINT"- DAS ERFUELLEN MATERIE 
LLER WUENSCHE" 

28065 PRINT"- BESUCHE BEI FREUNDEN/ 
VERWANDTEN" 

28070 PRINT"- GROSSE UNTERNEHMUNGEN 

28875 PRINT"- EHRGEIZIGE BESTREBUNG 
EN" 

28880 PRINT"- KONZENTRATIONSAUFGABE 
N" 

28085 PRINT"- ORGAN ISATIONSAUFGABEN 

28090 PRINT"- EIN AMT ANNEHMEN/AUSF 
UELLEN" 

28095 PRINT :PRINT:PRINT 
28100 PRINT TAB (10)"WEITERE BERECHN 
UNGEN (J/N)" 

28105 GET W $ 

28110 IF W$ = "J" GOTO 505 
28115 I FW $ = "N" GOTO 30000 
28120 GOTO 28105 
29000 CLS 
29005 PRINT : PR INT 

29010 PR INT "AUS DER NAMENSZAHL#"; N $ 
;"# UND DER GEBURTS-" 

29015 PRINT"ZAHL #";GB*;"# SOWIE DE 
M DATUM # " ; T $ ; " # " 

29820 PRINT"ERGIBT SICH DIE TAGESQU 
ALITAET" 

29025 PRINT 

29030 PRINT TAB(10)"#### 9 ##*#" 
29035 PRINT:PR INT 

29040 PRINT"NEUNER-TAGE EIGNEN SICH 
BESONDERS FUER" 

29045 PRINT 

29058 PRINT"- KREATIVES ARBEITEN" 
29855 PRINT"- KUENSTLERISCHE BESCHA 
EFTIGUNGEN" 

29068 PRINT"- WIEDERGUTMACHUNGEN" 
29065 PRINT"- LERNEN UND LESEN" 

29070 PRINT"- DAS VERMEIDEN VON KÖM 
PROMISSEN" 

29075 PRINT"- AKTIVE HILFE" 

29080 PRINT"- DAS STUDIUM PSYCHOLOG 
ISCHER DINGE" 

29885 PRINT"- MYSTISCHE FORSCHUNGEN 
/ERLEBNISSE" 

29090 PRINT"- PERSOENLICHE ERFUELLU 
NG" 

29095 PRINT :PRINT :PRINT 
29100 PRINT TAB(10)"WEITERE BERECHN 
UNGEN (J/N)" 

29105 GET W* 

29110 IF W* ="J" GOTO 505 

29115 IF W$ ="N" GOTO 30000 

29120 GOTO 29105 

30000 REM SCHLUSSBEMERKUNG 

30805 CLS 

30010 PRINT:PRINT 

30015 PRINT"HOFFENTLICH HAT IHNEN D 
AS SPIEL MIT" 

38020 PRINT"DEN LEBENSZAHLEN SPASS 
GEMACHT." 

30025 PRINT"NATUERLICH GEHEN DIE NU 
MEROLOG ISCHEN" 

30030 PRINT"DEUTUNGEN NOCH VIEL TIE 
FER, ABER DANN" 

30035 PRINT"GRENZEN SIE AN (PSEUDO) 
WISSENSCHAFT" 

30040 PRINT"UND LASSEN SICH SPIELER 
ISCH NICHT MEHR" 

30845 PRINT"EROBERN." 

30050 PRINT"BE I INTERESSE BESORGEN 
SIE SICH BITTE" 

30055 PRINT"ENTSPRECHENDE FACHLITER 
ATUR." 

30060 PR INT: PR INT 

30065 PR INT"NOCH EIN LETZTER TIP:" 
30070 PRINT "SOLLTE IHNEN IHRE NAMEN 
SZAHL NICHT" 

30075 PRINT"GEFALLEN HABEN, AENDERN 
SIE DOCH EIN-" 

30080 PRINT"FACH IHREN NAMEN 
30085 PRINT"- ODER SINNVOLLER, VIEL 
LEICHT IHR LEBEN." 

30090 PRINT .-PRINT :PRINT 
30095 END 
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Geschicklichkeit 


Serpents 


Rechner; MZ-700 

Programmnarae: SERPENTS 

Progammlänge: 6927 Bytes 

Programmiersprache; ML 

Anfangsadresse: 6000 

Endadresse: 7B09 

Ausführungsadresse: 7690 
Begeben Sie sich mit Ihrer Spielfi¬ 
gur auf Eierjagd ! 

Sie können Ihr Monster mit den 
Cursor-Tasten steuern und müssen 
dabei versuchen, möglichst viele 
Eier zu verspeisen. 

Außerdem kann man sich durch einen 
Sprung in Sicherheit bringen, indem 
man die DEL-Taste drückt. Diese 
Rettungsmöglichkeit sollte man al- 
lerings nur im absoluten Notfall 
nutzen, da man auf einem zufälligen 
Ziel landet und von Zeit zu Zeit 
vernichtet wird. 

Es gibt unterschiedliche Arten von 
Eiern. Für ein normales Ei erhält 
man 10 Punkte, ein inverses Ei 
bringt 100 Punkte, man wird von ihm 


aber auf ein zufälliges Feld ge¬ 
schleudert. Zwei dieser inversen 
Eier liegen hinter einer geschlos¬ 
senen Tür, die sich für einen kur¬ 
zen Augenblick alle 10 Sekunden 
öffnet. Diese zwei Eier machen den 
Spieler durch Ihren Verzehr sehr 
träge und langsam. Man erreicht 
seine normale Geschwindigkeit erst 
nach einiger Zeit wieder. 

Falls sich die beiden Monster be¬ 
gegnen, entsteht ein Ei, an dem der 
Spieler nicht mehr vorbeikommen 
kann. 

Sind alle Eier - ausgenommen den 
zwei ausgefüllten - gefressen, wird 
das Spielfeld neu aufgebaut. Die 
Sperren werden jedoch nicht besei¬ 
tigt . 

Das Spiel endet, wenn man von einem 
Monster gefressen wurde, wenn die 6 
Minuten Zeitlimit überschritten 
wurden oder wenn man bei der Be¬ 
nutzung der DEL-Taste Pech hatte. 
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:76A8=76 06 27 36 00 23 10 FB /. 
s76B0=11 FD 76 CD 15 00 CD 1B /. 

5 76B8=00 FE 4E CA E0 76 FE 4A /. 

5 76C0=C2 B6 76 CD DB 04 DA 07 /. 

:76C8=01 CD 09 00 11 A0 09 CD /. 
s 76D0=15 00 11 Fl 10 CD 15 00 /. 

:76D8=CD F8 04 3E FF 32 02 E0 /. 
s 76E0=21 2C 6B 22 66 13 21 01 /. 

5 76EB=01 22 60 13 22 62 13 22 /. 

576F0=64 13 C3 00 64 06 10 CD /. 

5 76FS=96 09 10 FB C9 16 48 A6 /., 
s 7700=97 98 A4 9F B7 9D 92 96 /., 
:7708=Al 9A 92 B8 B8 92 20 4C /. 

5 7710=Al 9C 92 B0 20 5B 4A 2F /., 
s7718=4E 5D 20 0D D0 D0 D0 D0 /.. 
57720=00 00 00 00 00 00 00 00 ^ 
s7728=00 00 00 00 00 00 00 00 
57730=00 00 00 00 00 00 00 00 _ 

s 7738=00 00 00 00 00 00 00 00 j _ > 
:7740=00 00 00 00 00 00 00 00 _ 

5 7748=D0 D0 D0 D0 00 D0 D0 D0 / 

5 7750=D0 00 D0 D0 D0 D0 00 D0 / 
s7758=D0 D0 D0 00 D0 D0 D0 D0 
5 7760=00 D0 00 00 D0 00 D0 D0 / 
s7768=D0 D0 D0 00 D0 D0 D0 D0 /. . 
5 7770=D0 00 00 00 00 D0 00 00 / _ 
57778=00 00 D0 00 00 D0 00 D0 /.[ 
s 7780=00 00 D0 00 D0 00 00 00 /. . 


57788=00 D0 D7 00 D0 00 00 00 / 
s 7790=D0 00 00 00 D0 00 00 00 / 

s 779B=D0 00 00 00 00 D0 00 00 / 

s 77A0=00 00 D0 00 00 D0 00 D0 / 

s 77A8=00 00 D0 00 D0 00 00 00 / 

s 77B0=00 D0 D6 D7 D0 00 00 00 / 

:77B8=D0 00 00 00 D0 00 00 00 /, 
5 77C0=D0 D0 D0 D0 00 D0 D0 D0 / 

s 77C8=00 00 D0 D0 D0 D0 00 D0 /, 

:77D0=D0 D0 D0 00 D0 D0 D0 00 /, 
5 77D8=00 D0 00 D6 D0 00 00 00 /, 

s 77E0=D0 00 00 00 D0 D0 D0 D0 /, 

:77E8=00 00 00 D0 00 D0 00 00 /. 

5 77F0=00 00 D0 00 D0 00 00 D0 /. 

5 77F8=00 00 00 00 D0 00 00 00 /, 

57800=00 D0 00 00 D0 00 00 00 /. 

:7808=D0 00 00 00 00 00 00 D0 / a 

57810=00 00 00 D0 00 D0 00 00 /\ 

57818=00 00 D0 00 D0 00 00 D0 /. 

57820=00 00 00 00 00 00 00 00 /. 

57828=00 D0 00 00 D0 00 00 00 /. 

s7830=D0 00 00 00 00 00 00 00 /. 

: 7838=D0 D0 D0 D0 00 D0 D0 D0 /'. 

s7840=D0 00 D0 00 D0 00 00 D0 /. 

:7848=00 00 00 00 00 D0 D0 D0 /. 

s7850=00 D0 00 00 D0 00 00 00 /. 

5 7858=D0 00 00 00 00 D0 D0 D0 / ’. 

:7860=00 00 00 00 00 00 00 00 /' 

57868=00 00 00 00 00 00 00 00 /. 

:7870=00 00 00 00 00 00 00 00 / m 

:7878=00 00 00 00 00 00 00 00 /_ 

5 7880=00 00 00 00 Q)0 00 00 00 /_ 

:7888=43 43 43 43 43 43 43 43 /. 

57890=43 43 43 43 43 43 43 43 /. 

57898=43 43 43 43 43 43 43 43 /. 

s 78A0=43 43 43 43 43 43 43 43 /. 

s 79A8=43 43 43 43 43 43 43 43 /. 

s78B0=00 00 00 00 00 00 00 00 / m 

s7SB8=00 00 00 00 00 00 00 00 /, 

s78C0=00 00 00 00 00 00 00 00 /_ 

s 7808=00 00 00 00 00 00 00 00 / _ 

s78D0=00 00 00 00 00 00 00 00 /_ 

57808=00 00 00 00 00 00 00 00 /„ 

s 78E0=00 00 00 00 00 00 00 00 /. 

5 78E8=00 00 00 00 00 00 00 00 /. 

5 7BF0=00 00 00 00 00 00 00 00 /, 

s 78F8=00 00 00 00 00 00 00 00 /_ 

5 7900=00 00 4E 43 43 4D 00 00 /. , 

57908=00 00 00 00 4E 43 43 4D /., 

57910=00 00 00 00 00 00 00 00 / mi 

57918=00 00 4D 00 00 4D 00 00 /.. 

57920=00 00 00 00 00 00 00 00 / m . 

57928=43 43 43 4A 4A 43 43 43 /.. 

:7930=00 00 00 4E 43 43 4A 43 /.. 

s 7938=00 00 00 00 00 00 00 00 /. a 

57940=00 00 42 4D 00 42 4D 00 /.. 

5 7948=00 00 00 00 00 00 00 00 / mm 

57950=43 56 43 43 43 43 42 43 /.. 

57958=00 00 43 43 43 43 43 43 /.. 

57960=00 00 Bl B2 00 Bl B2 00 /.. 

5 7968=00 00 4E 43 43 43 43 4D /.. 

57970=00 00 00 00 00 00 00 00 / mm 

s797S=56 00 43 43 43 43 00 42 /.. 
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Geschicklichkeit 


7980=00 

00 

43 

43 

43 

43 

40 

7988=00 

00 

B5 

B6 

00 

B5 

B6 

7990=00 

00 

43 

43 

43 

43 

43 

7998=00 

00 

00 

00 

00 

00 

00 

79A0=00 

00 

00 

43 

43 

00 

00 

79A8=00 

00 

00 

42 

43 

43 

43 

79B0=00 

00 

00 

00 

00 

00 

00 

79B8=00 

00 

43 

4A 

43 

43 

4A 

79C0=00 

00 

00 

00 

00 

00 

00 

79C8=00 

00 

4E 

56 

42 

40 

00 

7900=00 

00 

00 

00 

42 

43 

43 

7908=00 

00 

00 

00 

00 

00 

00 

79E0=00 

43 

43 

43 

43 

43 

43 

79E8=43 

00 

00 

00 

00 

00 

00 

79F0=00 

4E 

56 

00 

00 

42 

40 

79F8=00 

00 

00 

00 

00 

00 

00 

7A00=00 

00 

00 

00 

00 

00 

00 

7A08=00 

00 

4E 

56 

00 

4E 

56 

7A10=00 

00 

00 

00 

00 

00 

00 

7A18=00 

00 

00 

00 

00 

00 

00 

7A20=00 

00 

00 

00 

00 

00 

00 

7A28=00 

00 

00 

00 

00 

00 

00 

7A30=00 

00 

00 

00 

00 

00 

00 

7A38=00 

00 

00 

00 

00 

00 

00 

7A40=00 

00 

00 

00 

00 

00 

00 


00 /. : 7A48=00 

00 /. :7A50=00 

43 /. :7A58=00 

00 .7A60=00 

00 /. : 7A68=A6 

4D /. :7A70=A6 

00 /. :7A78=A6 

43 .7AB0=A6 

00 /. :7A88=A6 

00 /. :7A90=00 

56 /. : 7A98=00 

00 /... .. 

43 /. : 7AA8=00 

00 /. . . __ : 7AB0=00 

00 /. : 7AB8=00 

00 /. :7AC0=00 

00 /. : 7AC8=93 

00 /. s7AD0=83 

00 /... 

00 /. s7AE0=00 

00 /.. : 7AE8=00 

00 /. : 7AF0=00 

00 /. : 7AF8=00 

00 /. s 7100=00 

00 /. :7B08=00 


00 

30 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

0« 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

A6 

A6 

Afc 

&& 

A6 

A6 

A6 

/ 

A6 

A6 

A£ 

JE. M 

A6 

A6 

A6 

/ 

A6 

A6 

A6 

Jk l 

A6 

A6 

A6 

/ 

A6 

A6 

A6 

A6 

A6 

A6 

A6 

/ 

A6 

A6 

A6 

A6 

A6 

A6 

A6 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

0|0 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

0« 

11 

00 

00 

00 

00 

/ 

00 

0*0 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

14 

81 

/ 

94 

85 

00 

=1 

92 

95 

85 

/ 

8B 

85 

3E 

00 

00 

00 

00 

/ 

00 

0«0 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

0*0 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

00 

00 

00 

00 

00 

00 

00 

/ 

CI 

C9 

22 

C7 

00 

7E 

FE 

/ 


Geister-Jagd 


Rechner: MZ-700/800 blauen Pur..-::s' esgezogen und zu 

Programraname: Labyrinth den Punkte' :es rr_r.en Zählers (der 

Programmlänge: 7271 Bytes eigentliche ?_ :e sanier) 10 ad- 

Programmiersprache: BASIC diert. Wahrer; Ese ;er. Mund mit den 

Cursortasse . das Labyrinth 

steuern, z._sse Zse darauf achten, 
Aufgabe in diesem Reaktionsspiel daß Sie sie _ : • -;ht rammen. Sie 
ist es, durch ein Labyrinth zu haben drei Ve's.ue. 
gehen und Geister zu jagen. Leider Zur Errei:.'._: : euer hohen Spielge¬ 
haben Sie nicht genügend Kraft und schwindig.eei: er. viele Peek- 

müssen sich laufend durch Äpfel (5 und Poketefe :er.rzt. Damit das 

Punkte) und Kirschen (2 Punkte), Spiel far::: -i":. ruß man auf die 
die Sie auf der Strecke finden, Zeichen sei : e.ses Zeichengenera¬ 
stärken. Um einen Geist zu töten, tors zur!.- . • Ansonsten er¬ 

brauchen Sie mindestens 10 Punkte, klärt si;r. :i: -'rcramm durch das 
die mit der blauen Anzeige darge- Listing ve _ : ; e selbst, 

stellt werden. Haben Sie einen Zirk Schnurbusch 

Geist getötet, werden Ihnen von den 


10 REM LABYRINTH-JAGD 
28 REM EUER CHIP SPECIAL 
30 REM VON DIRK SCHNURBUSCH 
40 REM 

60 CCOLOR ,,7,0 
78 CLS 

30 CURSOR 3,12:PR INT"Wuenschen Sie 


Erlaeute' jrtfm <J/N) ?" 

90 GET Ai 

100 IF A$= J THE?« 3 : TO 130 
110 IF Ai= '-Es ; to 300 
120 GOTO 92 
130 CLS 

135 rem *« e ** 
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Geschicklichkeit 


148 

158 

168 

170 

180 

190 

208 

210 

220 

230 

240 

260 

270 

280 

290 

300 

310 

315 

328 

330 

340 

350 

368 

370 

380 

390 

400 

410 

420 

430 

440 

458 

460 

470 

480 

490 

500 

510 


P R IN T E 6,2 3 T AB(10) "Spielregeln 

CURSOR 0,2:PRINT"Sie sind in ei 
nem Labyrinth und muessen" 

PRINT : PR INT"Geister jagen.Sie k 
oennen Sie aber nur " 

PRINT PRINT"aufessen,wenn Sie m 
indestens 10 Punkte" 

PRINT : PR INT"durch aufgegessene 
Aepfel<5 Punkte)oder" 

PRINT :PRINT"Kirschen <2 Punkte)h 
aben.Die Punkte » 

PR INT;PR INT"werden mit der blau 
e Anzeige angezeigt." 

PR INT : PR lNT"Waehrend Sie Geiste 
r jagen ,*duerfen Sie " 

PRINT :£ßJULT"die Waende nicht ra 
mrnen . S ie^ koennen den" 

PR INT:PR INT"den Mund mit den Cu 
rsor Tasten lenken. " 

PRINT:PRINT"Sie haben drei Vers 
uche. " 

CURSOR 15,23 : PR INT l 5,1 1 "Progra 
mm starten <J> 

GET Af 

IF A$="J"THEN 380 
GOTO 270 
CCOLOR ,,7,0 
CLS 

REM ## VARIABLENBEDEUTUNG 
GE = 57 : REM GEISTER 
AP=157:REM APFEL 
K I = 158 : REM KIRSCHE 


** 


REM 

REM 

REM 

REM 


MUND 

MUND 

MUND 

MUND 


HOCH 

UNTEN 

LINKS 

RECHTS 


ANZEIGER 


DER VERSUCHE 


538 

540 

550 

560 

570 

580 


MH = 73 
M U = 7 5 
ML = 74 
MR = 76 

WA=117:REM WAND 
A = 3 : REM ANZf 
CG = 2048 : REM CG-ROM 
SC = 50 : REM SCHWIERIGKEITSGRAD 
LE=0: REM LEER 

P=0:REM APFEL-KIRSCHPUNKTE 
PZ=0:REM PUNKTE 
TI$=“ 800000 " :REM UHR 

M1$="0-CA+BC":REM MUSIK 1 
M21 ="0B REM MUSIK 2 
M3$="8+3-G" : REM MUSIK 3 
REM ** SPIELFELD ** 

FOR 1=53243 TO 53287 
POKE I +CG ,240 : POKE I,WA 
POKE I+848+CG,240:POKE 1+840,1 
NEXT I 

FOR 1=53248 TO 54087 STEP 40 
POKE I+39-CG,240 POKE I+39,WA 
POKE I +C6 , 240 : POKE I,WA 
NEXT I 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
708 
710 
720 
730 POKE 
740 POKE 
750 POKE 
760 NEXT 


770 

780 

790 


810 

820 

830 

840 

858 

860 

878 

380 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

998 

1000 

1010 

1020 

1030 

1040 

1050 

1068 

1070 

1088 

1090 

1100 

1110 

1120 

1130 


FOR 1=53299 TO 53300 
POKE I +CG,240:POKE I,WA 
POKE I+40+CG,240:POKE I+40.WA 
NEXT I 

FOR 1=53371 TO 53375 
POKE I+CG,240.POKE I,WA 
POKE I+48+CG,240:POKE 1+40,WA 
NEXT I 

FOR 1=53331 TO 53386 
POKE I+CG,240 : POKE I,WA 
POKE I+40+CG,24@:P0KE 1+40,WA 
NEXT I 

FOR 1=53389 TO 53392 
POKE I+CG, 240:P0KE I ,WA 

I+CG+40,240:POKE 1+40,WA 
I+CG+80,240:POKE 1+80,WA 
I+CG+128,240:POKE 1+120,WA 

FOR 1=53395 TO 53398 
POKE I+CG,248:POKE I,WA 
POKE I+40+CG,24@:P0KE I+40.WA 
NEXT I 

FOR 1=53481 TO 53404 
POKE I +CG, 240:POKE I,WA 

I+CG+40,240:POKE 1+48,WA 
I+CG+80,248:POKE 1+80,WA 
I+CG +120,240:POKE 1+120,WA 

FOR 1=53451 fo 53458 
POKE I +CG, 240 : POKE I ,WA 
POKE I+CG + 40,240:POKE I+40.WA 
NEXT I 

FOR 1=53538 TO 53540 
POKE I+CG,240 : POKE I,WA 

I+CG+40,240:POKE 1+48,WA 
I +CG+80,248:POKE 1+80,WA 


POKE 

POKE 

POKE 

NEXT 


POKE 
POKE 
POKE 
POKE 
POKE 
NEXT 
FOR 


I +CG + 120,240 
I + CG + 160,240 
I +CG+200,248 
I 

1=53543 TO 53552 


POKE 

POKE 

POKE 


1+120,WA 
1+160,WA 
I+200,WA 


POKE I+CG,240 : POKE I ,WA 
POKE I+CG+40,240:POKE 1+40,WA 
NEXT I 

FOR 1=53555 TO 53564 
POKE I+CG,240:POKE I,WA 
POKE I+CG + 40,240:POKE 1+40,WA 
NEXT I 

FOR 1=53611 TO 53612 
POKE I+CG,240 ;POKE I,WA 

I+CG+40,240 : POKE 1+40, WA 
I +CG+80 , 240 : POKE 1+80, WA 
I+CG + 128,240:POKE 1+120,W 


POKE 

POKE 

POKE 

A 

POKE 

A 

POKE 


I+CG+160,240:POKE 1+168,W 
I +CG+200,240:POKE 1+200,W 
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Geschicklichkeit 


a 

1140 POKE I+CG+240,248:POKE 1+248,W 
ft 

1158 POKE I+CG+280,240-POKE 1+288,14 
ft 

1160 POKE I+CG+328,240:POKE 1+320,14 
ft 

1170 POKE I+CG+368,240:POKE 1+360,14 
ft 

1180 NEXT I 

1190 FOR 1=53615 TO 53515 
1280 POKE I +CG ,240 : POKE I,Wft 
1210 POKE I+40+CG,240 :POKE 1+40,14A 
1220 POKE I+80+CG,240:POKE 1+80,WA 
1230 POKE I + 128+CG,248:POKE 1+120,W 
ft 

1240 POKE I+168+CG,240:POKE 1+168,W 
A 

1250 POKE I+CG+200,240:POKE 1+288,W 
ft 

1268 NEXT I 

1270 FOR 1=53639 TO 53644 
1288 POKE I+CG,240 : POKE I,Wft 
1290 POKE I+CG + 40,248:POKE 1+40,Wft 
1380 NEXT I 

1310 FOR 1=53703 TO 53714 
1328 POKE I+CG,240:POKE I,Wft 
1338 POKE I+CG+40,240:POKE 1+40,WA 
1340 NEXT I 

1350 FOR 1=53715 TO 53716 
1360 POKE I+CG,248 : POKE I,WA 
1370 POKE I+CG+40,248:POKE 1+40,Wft 
1380 POKE I+CG+88,240:POKE 1+80,WA 
1398 POKE I+CG+120,248:POKE 1+120,W 
ft 

1400 POKE I+CG + 160,240:POKE 1+160,W 
A 

1410 POKE I+CG+200,240:POKE 1+280,W 
A 

1428 POKE I+CG+240,240:POKE 1+240.W 
ft 

1430 POKE I+CG+280,240:POKE 1+288,W 
A 

1440 POKE I+CG+320,248:POKE 1+320,W 
ft 

1450 POKE I+CG+368,240:POKE 1+360,W 
A 

1460 NEXT I 

1470 FOR 1=53799 TO 53884 
1480 POKE I+CG,240:POKE I,Wft 
1490 POKE I+48+CG,240:POKE 1+48,WA 
1508 NEXT I 

1510 FOR 1=53855 TO 53868 
1520 POKE I +CG,240:POKE I,WA 
1530 POKE I+CG+40,240:POKE 1+40,Wft 
1540 NEXT I 

1550 FOR 1=53863 TO 53869 


1560 POKE I +CG,2-2 = E I,Wft 
1570 POKE I +CG*45 2-2 = ;KE 1+40,WA 
1580 POKE I+CG-rE 2+2 =2KE 1+80,Wft 
1590 POKE I+CG-125 2-5 = OKE 1+120,W 
ft 

1680 NEXT I 

1610 FOR 1=53872 T ; :5 = “4 
1620 POKE I +CG,245 = ;•£ I,Wft 
1638 POKE I+CG +45 2-8 =2KE 1+40,Wft 
1640 POKE I+CG+S5 2-5 - E 1+80,Wft 
1650 POKE I+CG+125 248 = :<E 1 + 120,,W 
A 

1668 NEXT I 

1670 FOR 1=53879 T: 553 = 1 
1680 POKE I+CG,248 = £ I,WA 

1690 POKE I+CG+48 2-8 = E 1+40,WA 
1708 POKE I+CG+Se 2-2 = 2 <E 1+80,Wft 
1710 POKE I+CG + 125 2-5 = 2<E 1 + 120.W 
ft 

1720 NEXT I 

1738 FOR 1=54004 T2 5-55- 
1748 POKE I+CG,248 = E I Wft 
1750 NEXT I 

1768 FOR 1=54011 i: 5-525 
1770 POKE I+CG,248 = E .' Wft 
1780 POKE I+40+CG 2-2 PIKE 1+48,Wft 
1798 NEXT I 

/1880 CURSOR 33,23 = ; : ' :e,5] P.-REM 

BLAUER ANZEIGE^ 

ic 1310 CURSOR 14,23 P=:*> r 2 5 4] PZ:RE 
M GRUENER ANZEIGER 
1828 FOR B=1 TO 3 =E' -‘'ZEIGER DER 
VERSUCHE 
1838 ft=ft-l 

1840 FOR G=54190 T; 5-155 
1350 POKE G+CG,24e = - r <s,|_E 
1860 NEXT G 

1370 FOR G=54190 TO 5-158+A 
1880 POKE G+CG,248 =.-E G,ML 
1898 NEXT G 

1908 AL = ML : REM ft*> r -‘> 534USSEHEN DES 
MUNDES 

1910 P0 = 53787 :REM -' "-NGSPOSIT ION D 
ES MUNDES 

1928 R 1=0 : REM BEWEG.‘- 3 DES MUNDES 
^1925 REM ## SPIEL ** 

1930 POKE P0+CG,248 =OKE PO,AL:REM 
ZEICHEN MUND 
1940 GET GE* 

1950 IF GE $="Q"LE ~ RI=-l:ftL = ML 
i960 IF GE *="B"LE’ R1 = 1 AL = MR 
1978 IF GEf = "B"LE” =2 I = -40 : AL = MH 
1988 IF GE*="0 M LE' RI=40:ftL=MU 
1990 LET VA = PO +RI REM <EUE POSITION 
2800 IF PEEK<VA>=L- T-EN 2360 :REM T 
REFFER WAND 

2010 IF PEEK < VA > OftP GOTO 2040 :REM 
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Autorennen 


TREFFER APFEL 

2020 LET P=P+ 5:CURSOR 33,23 -PRINT C 
0,5 3 P 

2030 TEMPO 7:MUSIC M2$ 

2040 IF PEEKC VA) OKI GOTO 2070 :REM 
TREFFER KIRSCHE 

2050 LET P=P+2:CURSOR 33,23:PRINT C 
0,5 3 P 

2060 TEMPO 7: MUS IC M2$ 

2070 IF(PEEK<VA)=GE) ÜKPC10) THEN CO 
TO 2360: REM TREFFER GEIST OHNE 
10 PUNKTE 

2080 IF PEEK < VA> OGE GOTO 2140 

: REM TREFFER GEIST 
2090 PZ=PZ+10:CURSOR 14.23:PPINT [0 
,43 PZ 

2100 P = P“10:CURSOR 33,23:PR INTC0.03 
" " : CURSOR 33,23 : PR INT C0 

,53 P 

2110 FOR 1=1 TO 10 
2120 TEMPO 7:MUSIC M3f 
2130 NEHT I 

2140 ZA = ZA +1: IF ZA>SC THEN 2210:RE 
M ZEICHEN GEIST 

2158 ZB = ZB +1 : IF ZB>5 THEN 2268- REM 
ZE I CHE KIRSCHE 

2160 ZC = ZC +1 : IF ZC>20 THEN 2310 :REM 
ZEICHEN APFEL 

2170 CURSOR 2,23 : PR IN T T I $ : REM UHR 
2180 POKE PO,LE 
2198 LET PO = VA 
2200 GOTO 1930 

2210 VB=INT<968*RND<1)) +53248 


2228 IF PEEK < VB)-WA THEN 2170 
2230 IF VB >54088 THEN 2178 
2240 POKE VB+CG,248:POKE VB.GE 
2250 ZA = @:GOT0 2170 
2260 VB=INT <9604eRNI> < 1> ) +53248 
2270 IF PEEK < VB)=WA THEN 2170 
2280 IF VB >54088 THEN 2170 
2290 POKE VB+CG ,168:POKE VB,KI 
2300 ZB = 0 : GO TO 2178 
2310 VB=INT <960#RND<1) ) +53248 
2328 IF PEEK<VB)=WA THEN 2170 
2330 IF VB >54888 THEN 2178 
2340 POKE VB+CG,192:POKE VB,AP 
2358 ZC=8 :GO TO 2170 
2360 POKE PO+CG,176 :POKE P0,238:REM 
TREFFER STERN 
2370 FOR 1=1 TO 5 
2380 TEMPO 7 : MUS IC Ml* 

2398 NEHT I 
2400 NEHT B 
2410 CLS 

2415 REM ## SPIELENDE #* 

2428 CURSOR 10,7 : PR INT"SIE HABEN "; 
PZ;" PUNKTE" 

2438 CURSOR 10,20 : PRINTC7,13"Noch e 
inmal (J/N) ?" 

2448 GET Af 

2458 IF A $ = "J"THEN GOTO 388 

2468 IF A$="N"THEN GOTO 2438 

2478 GOTO 2448 

2480 CCOLOR ,, 7,1 

2498 CLS 

2588 END 


Formel-1-Pilot 


Rechner: 
Programmname: 
Programmlänge: 
Programmiersprache: 


MZ-700/800 
Autorennen 
4165 Bytes 
BASIC 


Autorennen ist ein Spiel, daß jeden 
Hobbyprogrammierer beschäftigt. 
Hier nur. “eine Variante zu diesem 
Thema. 

Sie müsse.' versuchen, 10 Runden auf 
der Rer.r.s:recke zu fahren. Das Auto 
wird z a : az:: den Cursor- Tasten 
gesteuerz. _‘e::ch wird es von Runde 
zu Rur.: e s : :.w: eriger, da das Auto 
immer szr.z eilen fährt und die 
Strecke ziezl;:: eng ist. Sollten 


Sie von der Piste abkomraen, ist das 
Spiel aus und der Computer sagt 
Ihnen, wieviel Punkte sie erreicht 
haben und wieviel Runden sie durch¬ 
fuhren. Außerdem bekommen Sie noch 
die nicht ganz Ernst gemeinte In¬ 
formation über Ihr Können. Die 
Anzahl der Punkte, die sie für 
jeden Meter erhalten richtet sich 
nach der Rundenzahl. Und nun gute 
Fahrfc * Wolfgang Lenhardt 


WENN IHR LISTING aus einer 
Fotokopie besteht, läuft dieses 
Programm beim Abtippen nicht! 
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Autorennen 


1 REM AUTORENNEN 

2 REM FUER CHIP SPECIAL 

3 REM VON WOLFGANG LENHARDT 

4 REM 

10 TI*="000000" 

20 GÖSUB780 
38 D IMSI(21) 

40 S * <1)="■■■■■■■ ■■■■■■■■■■■■■■■ 


58 

60 


S $ < 2) = " 


■■■■■■■■■■■■■■■ 


S t < 3 ) = " 


70 S $ < 4) = 1 
80 S $ (5) = 1 


90 Sf<6)="i| 
100 S$ (7 > = "j 
110 S $ < 8 > = "I 


120 S$ <9> = "| 

■nanu 

130 Sf<10) = "| 


140 

150 

160 

170 

130 

190 

200 

210 


Sf <ll> = *'ai 


Sf <12> = "■■ 


S $ <13 > = 



S$ <14) = "■■ 

ti 

Sf (15) = ,, il 
SH16) = "H 


S$< 17) = "| 


S $ <18 > = 




START i ZIEL 


!20 3 $ < 19) = 1 


230 S $ < 20) = "| 


240 PRINT"«" 

250 FORA=1 TÖ20 

260 PRINTS*<A> : MUSIC"-C0C0+C0" 

270 NEXTA 

288 PR INT:PRINT"RUNDE: 1 PU 

NKTE : " : R=1 : E = 45 
290 CURS0R25,14:PR INT"TEMPO : " 

300 B=54065:POKEB,199 
310 GOSUB330:GOSUB410 
320 GOTO310 

330 REM *****TASTATURABFRAGE***** 
348 GET A* 

350 IFA$=""THENA$=AA$ 

360 IFAt= ,, B ,, THENPO = 40 :RETURN 


370 IFAf="D"THE‘*= :=--0 RETURN 
380 IFA* = ,, B"THE‘-= :=-i RETURN 
398 IFAI = "B"ThE' : =1 RETURN 
400 GOTO330 

410 REM ***** B E » E • _ *■>G ***** 

420 POKEB j 67: r = E-?0:AA$ = A* 

430 IFPEEK '-ENPOKEB,199:FO 

RX=1T030 = M _ S:! FP : NEXTX:G0T054 
0 

440 POKEB^199 :'CE : NEXTX 

450 IF <B = 54065 - E = r -025>THENMUS IC" 
G0" : R = R +1 :. : I ;-" 22 : PR IN TR:E = E 
-5 : IFR>10T-E‘> C .RS0R7,22 : PR INT 

R-l : GOT04?0 

460 S = S +R :CURS!=2: 22 PRINTS :CURSO 
R31., 14 : P R I' T 10 0-E) *2 : RE TURN 
478 IFPEEK <54005 =.?E'HEN510 
480 FORZ=lTOie 

490 MUSICDe" = ! • E r -025,67 :F0RX=1T0 
100:NEXTX “^5:: E8 : : POKE54025 1 

99 :F0RX=1T:10 0 E-TX 
500 NEX TZ:G0 T05 - 0 

510 FORZ=1 TO 16 

520 MUSIC"D6 : =:-E:^055,67:F0RX=1T0 

100 : NEXTX -.Ei; E0 :POKE54065,1 
99:F 0 R X =1T: 100 E• TX 

530 NEXTZ 
540 PRINT"«" 

550 MUSIC'CCe ==R -1 EURS0R5 , 8:PR IN 
T"SIE HABE- = RJNDEN GESCHAF 

FT" :FORX= 1T!5 00 EXTX 
560 MUS ICDD8 : . = E = - 10:PRINT"UND 
DABEI";S ' . 'E ERREICHT.":F 
ORX = 1T 0580 E '■ 

570 I FR = 8 THE N F s = EI E _AHME ENTE" : K 
= 7 

530 IFR=1THENF$= E I *' E _AHME ENTE" : K 
= 7 

598 IFR = 2THENF $ = EIE _AHME ENTE" : K 
= 7 

600 IFR = 3THENF ; = El*. SONNTAGSFAHRER 
" : K = 5 

610 IFR = 4THENF = = EI ANFAENGEP." : K = 8 
620 IFR = 5THENF $= E! 3ELEGENHE I TSFA 
HRER " :K = 4 

630 IFR = 6THENF s= £ ; •, SUTER FAHRER": 
K = 7 

640 IFR = 7THEN r *= EIN ME ISTERFAHRER" 
: K = 6 

650 IFR = 8 THENF S= EI r AHRERAS" :K = 8 
660 IFR = 9 THENF $= EIN PROFI":K=10 
670 IFR = 10THE' Fs= EIN SUPERPROF I " :K 
= 8 

680 MUS IC"EE8 IU = EI RK,12:PR INT"S IE 
SIND " ;F* 

690 CURSOR 12,20 ==I’ '"NEUES SPIEL J 
/N" 

700 GE TH $ 
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710 IFH*="J"THENRUN 
720 IFH*="H"THEN748 
738 GOTO700 
740 PR INT"||" 

750 F0RZ=iT0210 

760 MUS IC"C0" :PRINT"ENDE"; 

770 NEXTZ:END 
780 PRINT"»" 

790 RESTORE 
800 FORV=1TÖ10 
810 F0RX=35 T013 + V STEP-1 
820 CURSORX,10: PR INTCHR*<96>+" ";"D 
" : FÖRU = 1TO30:NEX TU 
830 GE TP $ : IFP *C> ""THENRETURN 
840 NEXTX 

850 READW* :CURSORX,10: PRINTW*;" " 

860 GETP* : IFP *C> ""THENRETURN 

870 MUSIC"C0": NEXTV 

880 DATA A,U,T,0,R,E,N,N,E,N 

890 F0RX=1T014 

900 CURSOR 10 +X,12:PR INT+CHR*(96) 
910 FÖRV=1TO100:NEXTV:MUSIC"C0":NEX 
TX 

920 CURS0R25,12:PRINT" " 

930 FORX=1TO1000:NEXTX 
940 PRINT"»" 

950 CURS0R3,3:PRINT"WILLKOMMEN BEIM 
AUTORENNEN !!" 

960 CURSORS,6:PRINT"SIE MUESSEN VER 
SUCHEN 10 RUNDEN" 

970 CURSOR 3., 8 :PRINT"ZU FAHREN. SIE E 
RHALTEN DAFUER " 

980 CURSORS,10:PRINT"PUNKTE,DIE SIC 


H NACH DER RUNDENZAHL" 

990 CURS0R3,12 : PR INT"RICHTEN.STEUER 
UNG DES FAHRZEUGES" 

1008 CURSOR3,14:PRINT"MIT DEN CURSO 
R-TASTEN." 

1010 CURS0R3,16:PRINT"DÖCH ACHTUNG 
! DAS FAHRZEUG" 

1020 CURSORS,18:PRINT"WIRD JEDE RUN 
DE SCHNELLER." 

1030 CURSOR 5,28 : PR INT"#*# TASTE DR 
IJECKEN #**" 

1040 FORX=0TÖ37 

1050 CURSORX,1:PRINT"i"+CHRf<96>;"H 

II . 

1060 GE TP* : IFP*<>""THENRETURN 
1070 FORV=1TO30:NEXTV:NEXTX 
1088 F0RX=1T022 
1090 CURS0R33,X:PRINT"!" 

1100 CURS0R38,X +1:PRINTCHR*(96) 

1110 GE TP* : IFP*0" " THENRE TURN 

1120 FORY=1TO30:NEXTV:NEXTX 

1130 F0RX=33T01STEP-1 

1140 CURSORX-1,23: PR INTCHR*<96>;"!" 

1150 GE TP* : IFP*C>""THENRETURN 

1160 FORV=1TO30:NEXTV:NEXTX 

1170 F0RX=23T02STEP-1 

1180 CURSORS,X-l:PRINTCHR* <96> 

1190 CURSORS,X:PRINT"1" 

1200 GE TP* : IFP*<>""THENRETURN 
1210 FORY=1TO30:NEXTV:NEXTX 
1220 IFT I *>"000040"THENRUN 
1230 GOTO1048 


ANZEIGE 



In dieser Ausgabe 


Grafik 


Adreßdatei 

Statistik 

Währung 

Finanzen 

Physik 
Biologie 
Freizeit 
Haushalt 
Funkamateur-Hobby 
Denkspiel 


Glücksspiel 

Mini-Action 
Mathematik 


Programmier-Tool 

Tips und Tricks 

Hobby 

Hobby-Labor 

Biologie 

Chemie 


3D-Körper 
Namensschilder 
MZP, der Elipsenformer 
Spiralengrafik 

Adressen aus der Westentasche 

Statistische Grafik 

Money change 

Abschreibungen 

Mehrwertsteuer 

Fourieranalyse 

Populationsentwicklung 

Lebenserwartung 

Benzintabelle 

QTH-Kenner 

Schiffe versenken 

Labyrinth 

Supergrips 

Sharp-Kniff ei 

Stern 

Unternehmen „Moon-Patrol" 
Kopfrechnen 

Ausgleich von Meßwerten 

2D-Funktionsgraph 

3D-Funktion 

Simpson-Integration 

Zahlensysteme 

Disassembler 

BASIC-Erweiterung mit Komfort 

L-List sortiert Variablen 

PLOTT schafft Übersicht 

Kasseffen-Archiv 

Duti/Timer 

Zellenzähler 

Schlüssel zu den Elementen 


Eine Publikation von CHIP SPECIAL 


93 




















Öko-System 


118 FÖRI = 1TÜL 

128 CURSOR!,1:PRINTEPA3"Hasen F 

üchse Zeit“ 

138 CURSOR0,24:PRINTCPA3" Hasen -4 

il . 

140 CURSOR© 23 : PR INTEPA3 "DeDBsDBhflB 

cQSuQBFQDBt"; 

150 AW=W:AP=P 

1S0 GE TA $ : I FA $="K"THE MB E E P:G=.1:S=. 

25:PA=1:PAL3,5:PAL2, 0:PALI,15 
170 IFA*=”S"THENBEEP:G=.2:S=.4:P=P# 
. 25 : PA = 3:PAL2,5 
180 IFA $=" "THENBEEP:CLS:END 
130 W=W+BT# <F #S#P+G#W-KIW#P> /2 
208 P = P + BT# <K*W#P-S#P>/2 
210 L INETPA3AW/T 199-AP/T .. W/T , 199-P 
/ T 

220 P R IN T [ P A 3 " ffij" ; IN T < W + . 5 > ;TAB < 

10) IN T < < P/3 > + . 5 > ; " " ; T AB (20) ; I 
230 NEXT 


1 REM BIO-SIMULATION ('TEIL 4) 

2 REM FUER CHIP'SPECIAL 

3 REM V0N TH I ES B. SCH! IPP 

4 REM 

10 IN I T“CR T:M1 

28 T = 5 0 0 :PA = 2 : P A L 2 , 15 : PALI., 5 

30 F 0 R.J =1T 0 2 

48 W = S 0 0 0 * 

50 P — 68S0 
68 G = . 2 
70 S = . 4 
80 K=.00002 
98 L = 370 
100 B T= i 
110 F=.17 
120 F0RI = 1T0L 

138 CURSOR 1,1:PR INTCPA]"Biomassp Z 
eit" 

140 CURSORS , 24 : PR INJ LPA 3 " Zeit - 4 " 
.« 

158 CURSORS,23:PR IN T EPA 3"EeESsESsBS 
* BB rnOB o ESiES B BBS t" ; 

160 AW = W : AP = P 

170 W = W +BT* <F#5 *P +G *W~K#W*P>/2 
180 P = P+DT*<K*WäKP-S*p>/2 
190 IF• J = 2 THEN220 


280 LINE[PA3(I-i 1,2+18,198.5-AW/T 
,1/1,2+18,198.5-W/T 
210 LINECPATCI-l 1.2+18,198.5-AP#2 
/T, I/1.2 +18 158.5-P*2/T 
220 IFJ = 2THEN_I •£: = -'1/1.2 + 10,198.5 
-CAP+AW#2 _ I 1.2+18,198.5-<P+ 
W*2>/T 

230 PRINTCPA3 I r-T P#2+W>+.5) ; " 

" TAB < 10 I " ; 

240 NEX T I : PAL2 5 =-=3:NEXTJ 
250 GETAt : IFA?= '-EN250 
260 BEEP 
270 RUN"ZUSAM h 'E 


1 REM BIO-SIMJL-TION (TEIL 3) 

2 REM FUER CHIP SPECIAL 

3 REM VON THIES E. SCHUPP 

4 REM 

10 INIT"CR T:M1 

28 T = 2 8 0 : P A = 2 : P A L 2,15 

3 0 W = 6 0 8 0 

4 8 P = 6 0 0 0 
58 G=.2 
60 S=.4 

70 K=.00002 
80 L=62ü 
98 B T = 1 
100 F =,17 
110 FORI = 1TOL 

120 CURSOR 1.. = =: -[ = -3“Hasen Z 

eit" 

138 CURSORS, 2- ==: -; = A3" Zeit - 4 " 
.« 

140 CURSORS, 2 = ==: ■Z- - 3“BnBBeBBsBB 
aBBHBBS' 

150 AW = W : AP = F 

16 8 W = W + B T * r * E ♦: - ;• * . - - % W $ P > / 2 
170 P = P+BT*(k-E * : 2 
180 L IN E C P AI I-1 2 + 13,198.5-AW/T, I 

/2+10,198.5~« “ 

190 PR INT CPAI i I _ -.5);" " ;TAB< 

10 ) I 
280 NEXT 

210 GE TA $ : IFH s= "-E’218 
228 BEEP 

238 RUN"B IOM-E5E 


Fractal 


Rechner: MZ-800 
Programmnarae: FRACTAL 
Programmlänge: 1525 Bytes 
Programmiersprache: BASIC 

Normalerweise sind Ergebnisse einer 
mathematischen Formel eine Reihe 


von Zahlen. Inn :er. Fractals sieht 
das allerdings ganz anders aus, 
denn hier er.osnenen Kunstwerke. 
Diese Grafiken ..:‘;en allerdings 
nicht erzeugt. .. . ir. einer Galerie 

bestaunt zu werten. sondern um un- 
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endlich komplizierte, mathematische 
Strukturen zu veranschaulichen. Die 
Fractals ermöglichen es dem Mathe¬ 
matiker, verborgene Strukturen und 
somit Zusammenhänge zu erkennen. 
Die^ Fractals sind ursprünglich nur 
Hilfsmittel der Mathematiker gewe¬ 
sen und das einzig künstlerische an 
ihnen ist die Auswahl der Farben 
für die einzelnen Ebenen. 

Trotz ihrer Ursprünge üben die 
Fractals einen eigenartigen Reiz 
aus, der möglicherweise in dem 
Nebeneinander von Chaos und Ordnung 
begründet ist. 

Die Grundfigur eines Fractals ist 
das sogenannte Apfelmännchen (siehe 
Bild)* Besonders faszinierend ist 
die Untersuchung seiner Grenzli¬ 
nien. Hier entdeckt man bei belie¬ 
bigen Vergrößerungen immer wieder 
gleiche Strukturen, wie z.B. das 
Seepferdchen oder auch das Apfel¬ 
männchen. 

Als sich eine Bremer Forschungs— 
gruppe mit dem Auftreten von Magne¬ 
tismus und arrrralem magnetischem 
Verhalten beschäftigte, fand sie 
heraus, daß Zusammenhänge zwischen 
dem Apfelmänchen und diesem Verhal¬ 
ten bestehen. 

Möglicherweise besteren Gesetz¬ 
mäßigkeiten in der Physik, die 
später einmal aas :e.n* Fractals 
abgeleitet werden . er. 

Bedienung des Pr ; 

Nach dem Programms rar: durch RUN 
müssen fünf Werte ei:ergeben wer¬ 
den: 

1) Berechnungstiefe 

2) Horizontale Unterererze 


3) Horizontale Obergrenze 

4) Vertikale Untergrenze 

5) Vertikale Obergrenze 

im i . fl 1 ge Werte, die besonders schöne 
Ergebnisse liefern - 

Urfigur eines Fractal: 

D 50 

2) -0.7 

3) 2.3 

4) -1.25 

5) 1.25 


Spiraxe: (ACHTUNG: extrem lange 


1 ) 1200 

2) 0.7445 

3) 0.7459 

4) -0.1132 

5) -0.1121 


Rechenzeit !) 


Seepferdchen: (ACHTUNG: extrem 
D 1200 lange Rechenzeit) 

2) 0.74505 

3) 0.74554 

4) -0.11324 

5) -0.11288 


Rand eines Apfelmännchens: 

1 ) 200 

2) 1.764 

3) 1.781 

4) - 0.013 

5) 0 


Kleines Apfelmännchen, daß mit der 
Urfigur verbunden ist: 

D 85 

2) 0.13 

3) 0.2 

4) -1.06 

5) -1.015 

Thies B. Schupp 


10 REM FRACTAL 

20 REM FUER CHIP SFE::-_ 

30 REM VON THIES B. == 

48 REM 

58 REM- 

60 REM INITIALISIER: 5 

70 REM- 

88 REM 

98 IN I T"CR T:M1 
100 P A L 0,0 
110 PAL 1,5 
120 PAL2..7 
130 PAL3..15 

148 REM DIE EINZELNEN F-=-r-, wnRDE 
N 

1 •->0 REM WURI>EN SO GEK - £ - _ DASS A 


168 REM EINEM SCHMARZ/WEISS-MÖNI TO 
R 

178 REM GUTER KONTRAST HERRSCHT. 

18 8 C L S 
198 6=100 

200 REM- 

210 REM EINGABE TEIL 

220 REM- 

230 REM 

240 SVMBOL40 0 "Fractal" .4,6 
250 CURSOR©,8:RRINT"Bitte geben Sie 
ein:" 

268 PRINT"-„ 

270 CURSOR©,11 
280 INPUT "Berechnungstiefe 
? " ; T I 
290 PRINT 
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300 

INPUT "Horizontale 

V '» • V 4 
• f J. 

Untergrenze 

310 

INPUT "Horizontale 
X2 

Obergrenze 

328 

IF X1 > = X 2 T H E N R U N 


330 

PRINT 


340 

INPUT "Vertikale 
? " V 1 

Unterg r e nz e 

350 

INPUT "Vertikale 
?" ; Y2 

0 her grenze 

360 

IF Yl>=Y2THENRUN 


370 

CLS 


380 

REM - 


390 

REM HAUPTTEIL 


400 

REM - 


410 

REM 


420 

DX=(X 2-X1>/319 


430 

B Y = < V 2 - Y 1 > / 19 9 


440 

F ö R M = 0 T 019 9 


450 

F Ö R N = 0 T 0 319 


460 

XC=X1+N#DX 


470 

YC=Y1+M*I>Y 


480 

K = 0 


490 

XZ = 0 


500 

V Z = 0 


518 

K = K +1 


520 

XX=XZ#XZ 


530 

YY=YZ*YZ 


540 

YZ=2IXZ#YZ-YC , 


550 

X Z = X X - Y V - X C 


560 

IFK=TI+1THEN590 


570 

IFXX+YYCGTHEN510 



580 SE T CK-INT <K/4 > #4 3 N , M 
598 HEX TN 
608 HEX TH 

610 MUS IC"S0M25E9";"R4S8M25G9" ; "R6S 
0M25B9" ' ' 

620 REM- 

630 REM FARBENSPIEL 

640 REM- 

650 REM 

660 A0 = 0 

670 A 1 = 5 

680 A2=7 

690 A3 =15 

700 FOR 1 = 1 TO10080 

710 F'AL0,A0 

720 PALI,Al 

730 PAL2,A2 

740 PAL3..A3 

750 FÜRJ = 1TO100 : NEXTJ 

760 00 = A0 

770 A0=A1 

780 A1=A2 

790 A2=A3 

800 A3=QQ 

810 NEXTI 
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Berücksichtigung eines eventuellen Patentschutzes, auch wer¬ 
den Warennamen ohne Ge.-.ahr'eistung einer freien Verwen¬ 
dung benutzt. 
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i/aVollsfäMtif* 
heult Äf8> 
cßifc/ib^^ • 


Bestellen Sie 
die Ihnen noch 
fehlenden CHIP¬ 
SPECIALS. 

Mit den neben¬ 
stehenden 
Karten 
geht’s ganz 
leicht. Einfach 
ausfüllen und 
ab die Post! 


Compifter-IVogramme 

MZ 700/800 



Bestellen Sie 
noch heute 
die Programme 
für den 

Sharp-MZ 700 800 
Ausgabe 2 


Bestellkarte für weitere 
CHIP-SPECIALS 


□ Ja, senden Sie mir bitte die angekreuzten SPECIALS zu den genannten Preisen 
zuzüglich Versandkostenanteil DM 3,50 im Inland (Versandkostenanteil für das Ausland DM 6 ,- 

Ich bezahle erst, wenn ich Ihre Rechnung erhalten habe. 


An¬ 

zahl 

Titel 

Best.- 

Nr. 

DM/ 

St. 


Commodore Amiga 

0290 

28- 


Turbo Pascal 

0120 

28- 


Turbo Pascal, Ausgabe 2 

0310 

28- 


Atari ST 

0230 

28,- 


Microsoft - BASIC 

0200 

28- 


Sharp PC 2500, 1500, 1401/2, 
1350 

0160 

28- 


Sharp MZ 7xx, 8xx 

0030 

28- 


IBM PC und Kompatible, 
Ausgabe 2 

0070 

28,- 


Epson HX 20 

930 

28- 


An¬ 

zahl 

Titel 

Best.- 

Nr. 

DM/ 

St. 


CHIP-Testjahrbuch/Hardware 

0240 

24- 


CHIP-Testjahrbuch/Software 

0250 

24,- 


Neue Medien 

0050 

24- 


T elekommunikation 

0100 

24- 


MSX-Computer, Ausgabe 1 

0140 

24- 


Die schönsten Elektronikhobbys 

0190 

24,- 













Bitte genaue Anschrift 
auf der Rückseite angeben. 


Unterschrift 


2 


□ Ja, 


Bestellkarte für weitere 
CHIP-SPECIALS 


nur direkt über den 
Vogel-Verlag zu bestellen: 


19 senden Sie mir bitte die angekreuzten SPECIALS zu den genannten Preisen 
zuzüglich Versandkostenanteil DM 3,50 im Inland. (Versandkostenanteil für das Ausland DM 6,- 

Ich bezahle erst, wenn Ich Ihre Rechnung erhalten habe. 


An¬ 

zahl 

Titel 

Best.- 

Nr. 

DM/ 

St. 


Thomson TO7-70, MO 5E TO-9 

0210 

18,- 


Enterprise 64 K/l28 K 

0220 

18,— 


Computer Programm-Verzeichnis 1986 

0320 

16,80 


Philips: „Yes“ 

0330 

28,— 


Bitte genaue Anschrift 
auf der Rückseite angeben. 


Datum 


3 


Bestellkarte für CHIP-SOFT- 
Sharp-Programme, Ausgabe 2 


Bitte senden Sie mir: 
a e Programme aus diesem Heft 
□ ohne MZ-CAD auf Kassette 
Z auf 5'/*-Zoli-Diskette 
für DM 95- 
Bitte senden Sie mir 
das Siegerprogramm MZ-CAD 
Z auf Kassette für DM 69- 
Z aZ 5 -Zoll-Diskette für DM 69, 
Z auf Quick-Disk für DM 79- 


Datum 


Unterschrift 


Bitte genaue Anschrift 
auf der Rückseite angeben. 


Inlandspreis inkl. MwSt. 3,50 DM Versandkostenanteil, 3,20 DM Nachnahmegebühr; 
Ausland 6 - DM Versandkostenanteil plus Nachnahme. 


0888 I 0887 ' I 0886 
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Bitte 

mit 60 Pfennig 
freimachen 

Name, Vorname 

Straße/Postfach 

PLZ/Ort “ 

Antwort 

Vogel-Verlag 

CHIP-SPECIAL 

Leser-Service 735 

Postfach 6740 

D-8700 Würzburg 1 



Bitte 

mit 60 Pfennig 
freimachen 

Name, Vorname 

Straße, Postfach 

PLZ/Ort 

¥ 

Antwort 

Vogel-Verlag 

CHIP-SPECIAL 

Leser-Service 735 

Postfach 6740 

D-8700 Würzburg 1 



Name, Vorname 

Straße, Postfach 

PLZ/Ort 


Bitte 

mit 60 Pfen- g 
freimachen 


J 




Antwort 


CHIP-SHOP 
Leser-Service 735 
Vogel-Verlag 
Postfach 6740 


: 

“ 


D-8700 Würzburg 1 

















































CHIP 

WISSEN 


ist die 
Buchreihe, 
mit der Sie 
Ihr Mikro¬ 
computer¬ 
wissen 
systematisch 
vertiefen 
können. Sie 
bringt alles, 
worauf es 
ankommt. 



VOGEL¬ 

BUCHVERLAG 

WÜRZBURG 

Postfach 67 40 
8700 Würzburg 


Wernicke, Joachim 
Computer für 
den Kleinbetrieb 

Rer e CHIP WISSEN 
148 Seiten, 

12 Abbildungen, 

3 Auflage 1984 
25.- DM 

SB\ 3-8023-0711-9 



Der Computer ist die nützlichste 
Büromaschine, die je erfunden 
wurde. Dieses Buch weist als prak¬ 
tischer Leitfaden gezielt den richti¬ 
gen und zugleich risikolosen Weg 
zur eigenen Computerlösung nach 
Maß, unterstützt durch eine Reihe 
von Checklisten und Formularmu¬ 
stern aus der Praxis. Alles Nützliche 
für den Einstieg sowie Arbeitsvor¬ 
gänge und Programme werden ver¬ 
mittelt. 


Sacht, Hans-J. 
Daten, Disket¬ 
ten, Dateien 

■"r -«= CH P W 5SEN 
300 Seiten, 
za*~ r Abbildungen, 
38 - DM. 1984 
ISBN 3-8023-0751-8 



Hans-Joachim Sad^ 

Daten-Disketten 
Dateien 

EflatfhrcDaSavcrwjSurÄ 
■ mit BASIC 


Wer anspruchsvollere Programme 
in BASIC erstellen will, muß mit 
Diskettenspeicherung arbeiten. Der 
Verfasser erklärt, wie Betriebssy¬ 
steme funktionieren und wie man 
Dateien aufbaut; er hilft allen, die 
Programme für Tischcomputer ent¬ 
wickeln wollen und deshalb die 
Verarbeitung extern gespeicherter 
Daten benötigen. Hinweise zum Be¬ 
nutzen verschiedener Disketten-Be- 
triebssysteme runden das Buch ab. 


Pomaska, Günter 
Computergrafik 
2D- und 3D- 
Programmierung 

2-12 Se :en, 

za~ ' Abbildungen, 

— rr Farbanhang, 

4C - DM 1984 
: E \ ; :123-0759-3 



Auch der Hobby-Anwender sollte 
Vorkenntnisse in einer Program¬ 
miersprache und in der analyti¬ 
schen Geometrie haben. Das ver¬ 
wendete Hewlett-Packard-BASIC 
ist so mächtig, daß eine Implemen¬ 
tierung in FORTRAN oder Pascal 
keine Schwierigkeiten bereitet. Alle 
Aufgaben und Beispiele führen zu 
weiteren Anwendungsmöglichkei¬ 
ten: z.B. Businessgrafiken, Präsen¬ 
tationsgrafiken, 3D-Grafik u.a.m. 


Sacht, Hans-J. 
Vom Problem 
zum Programm 

Reihe CHIP WISSEN 
326 Seiten, 

108 Abbildungen, 

2. Auflage 1984 
38,- DM 

ISBN 3-8023-0715-1 

Langfelder, C. 

Wordstar 
kurz und bündig 

Reihe CHIP WISSEN 
100 Seiten, 

22 Abbildungen, 
25,- DM, 1985 
ISBN 3-8023-0798-4 

Diemer, Wolfgang 
Relationale 
Datenbanken 
kurz und bündig 

Reihe CHIP WISSEN 
124 Seiten, 

34 Abbildungen, 
28,- DM, 1985 
ISBN 3-8023-0797-6 

Teege, Frank 
Schneller erfolg¬ 
reich mit Lotus 
1-2-3 

Reihe CHIP WISSEN 
144 Seiten, 

45 Abbildungen, 
30,- DM, 1985 
ISBN 3-8023-0803-4 

Ausführliche 
Informationen 
durch Ihren 
Buchhändler 



Original Holtkötter'’ 

Damit Anwender nicht abstürzen. 



MZ LEARN Ein Einführungskurs 
in die Maschinensprachen-Programmierung, auch 
für Anfänger. Auf Cassette werden mitgeliefert: das 
Programm CALCULATOR für typische Computer¬ 
operationen und Umrechnungen in den ver¬ 
schiedenen Zahlensystemen und der HEXMONITOR 
zum Ausprobieren von Maschinenprogrammen. 

Für alle MZ 700 und MZ 800 DM 98.- 


MZ FORTH Die einzige Programmier¬ 
sprache, die sich permanent um neue Befehle 
erweitern läßt - Bis zu 10 x schneller als BASIC. 

Weniger Speicherplatz. 

Eine Vielzahl von Zusatzfunktionen. 

Für alle mz 800 DM98.- 


auf Compact-Cassette 
mit deutschem Handbuch 

Systemhandbuch MZ 800 

Auf ca. 180 Seiten Tips Tricks und 
Programme. Zeichengenerator Unter¬ 
programme, AssemDleriisting 
Z 80 Programmierung. Druckerinterface 
Tongenerator Schaltpläne 
und vieles mehr DM 48.- 



Holtkötter 

Damit Anwender nicht abstürzen. 



Weitere Bücher und Programme 
in unserem Katalog 

z. B. Basic Schritt für Schritt mit MZ 700/800 

710 Seiten 

Wordstar/Mailmerge 

Textverarbeitung und Adressverwaltung 
für MZ 800 mit 5,25" Floppy DM 298, 


Zentrale und Versand: 
Albert-Schweitzer-Ring 9 
2000 Hamburg 70 
Telex 215 065 • Tel. 040/6 69 81-0 

Ladenverkauf: 

Hallerplatz 15 (an der uni HH) 
2000 Hamburg 13 
Tel. 040 / 45 79 54 
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In dieser Ausgabe 


Programmierhilfe-Karle 

So geben sie BASIC-Programme ein 

Tips und Tricks 

Super-Copy 

Hcopy 800 - der schnelle Druck 

Lernen, Wissen, Können 

Lernen im Nu mit SUPERLEARN 

Sport 

Golfspiel 

Flugsimulator 

Segelflug 

Expertensystem 

Kein tierischer Ernst 

Plotter 

Hexdump 

Naturwissenschaft 

Populations-Entwicklung 

Kegelberechnung 

Knobeln 

Kasten-Zauber 

Mini-Aktion 

Treffer-Quote 

Bauanleitung 

A/D-Wandler 

Siegerprogramme 

MZ-CAD, der Zeichencomputer 

Numerologie 

Lebenszahlen 

Geschicklichkeit 

Serpents 

Geisfer-Jagd 

Autorennen 

Formel-1-Pilot 

Öko-System 

Bio-Simulation 

Chaos-Grafik 

Fractal 




